Excel Forum

snasui wrote: ในเครื่องนี้ กรณีเป็นไฟล์อื่นที่ไม่ใช่ไฟล์นี้สามารถใช้งาน Macro หรือ VBA ได้หรือไม่ครับ

ไม่สามารถเปิดไฟล์อื่นที่มี macro ได้เช่นเดียวกันค่ะ.

ขอรบกวนท่านผู้รู้ ช่วยเหลือเรื่องการติดตั้งใช้งาน Macro ใน Excel หน่อยนะคะ

เนื่องจากได้ทำการ Copy ไฟล์ นามสกุล .xlsm เพื่อนำมาลงอีกเครื่องหนึ่ง

แล้วได้ทำการติดตั้ง option ของ Developer และ ตั้งค่า Enable macro เรียบแล้วแล้ว

แต่ปรากฎว่ายังไม่สามารถใช้งาน macro จากไฟล์ดังกล่าวได้ โดย Excel pop-up ข ...

ขอบคุณอาจารย์คนควนและคุณ ZEROV มากๆนะคะ
ได้ตามที่ต้องการเลยค่ะ

แต่มีติดปัญหาเวลาเอาโค้ดไปใช้กับอีกไฟล์ ซึ่ง Duplicated กันมา ทำไมถึงนำไปใช้ไม่ได้เหรอคะ (มัน Error ค่ะ)
ทั้งๆที่ ชื่อชีตก็เหมือนกัน Range name ก็เหมือนกันหมด
ขอรบกวนอีกครั้งด้วยนะคะ
ขอบคุณค่ะ

ลองเขียนโค้ดมาใหม่ค่ะ
โดยแยก Range (m26:m35) เป็นคอลัมน์ เพื่อแยกวางใหม่ในอีกหน้า ซึ่งแต่ละคอลัมน์ที่ต้องการวางไม่ได้อยู่ติดกัน
วางไปเรื่อยๆตามข้อมูลที่คีย์ เข้ามาค่ะ ในที่นี้กำหนดให้วางตั้งแต่แถวที่ 6 ลงไปเรื่อยจนถึงแถวที่ 101 ค่ะ
Dim rsTemp As Range, arrComment() As Variant, rs As Range
Dim rtAll ...

snasui wrote: เซลล์ M4 ปรับสูตรเป็นด้านล่างครับ

=VLOOKUP(TEXT(K4,"00-00-000000"),C5:G16,2,0)

Enter

ได้แล้ว ขอบพระคุณมากๆค่ะ

สอบถามวิธีการใช้ Vlookup จากเซลล์อ้างอิงที่มีเลข 0 นำหน้าค่ะ
โดยต้องการให้คีย์ ID เช่น 09-001-123112 แต่ไม่ต้องใส่ "-" เอง โดยใช้ Format ช่วยค่ะ
ซึ่งได้ลองใส่ Format cell ใน Custom เป็น 00-00-000000 เอาไว้ค่ะ
แต่กลายเป็นว่า Vlookup ไม่อ่านค่าเลข 0 ข้างหน้า คืออ่านเป็น 9-001-123112 จึงไม่แสดงค่าที่ต ...

:D ตัวอย่าง Code ตามด้านล่างครับ

Dim rsTemp As Range, arrComment() As Variant, rs As Range
Dim rtAll As Range, rtCol As Range, i As Integer, j As Integer
With Sheets("ER stroke form")
Set rsTemp = .Range("m26:m35")
i = 0
For Each rs In rsTemp
If rs.Value <> "" Then
ReDim Preserve arrComment ...

logic wrote:อาจารย์หมายถึงว่าเอาไปวางบรรทัดไหน ปลายทางมีตั้งหลายบรรทัด หรือว่าให้วางทุกบรรทัดครับ

ขอบคุณนะคะที่ช่วยอธิบาย
วางทุกบรรทัดค่ะ โดยเริ่มวางตั้งแต่บรรทัดที่ 6 ไล่ไปเรื่อยๆค่ะ

ขอบคุณมากๆค่ะ.

:D ดูจากค่าใดในชีต ER stroke form และ Table record เพื่อที่จะได้นำ Comment ไปวางให้ตรงบรรทัดตามที่ต้องการครับ
ไม่แน่ใจว่าเข้าใจคำถามถูกหรือเปล่านะคะ
ดูจากข้อความ Remark ที่เป็น Text ทั้งหมด ที่ User ใส่มาใน Column M หน้าชีท ER Strock
ไปใส่เป็น Comment ไว้ที่เซลล์ที่มีค่าเป็นเวลา Acheived time ...

ขออภัยค่ะ
ต้องการนำ Comment ใน ชีต ER stroke form ไปไว้ที่เซลล์ในชีต Table record ค่ะ
โดยเงื่อนไขคือต้องการให้ข้อความในหน้าชีต ER stroke form ที่ User คีย์ ไว้ไปบันทึกที่ชีต Table record ไปเรื่อยๆ ทีละบรรทัดค่ะ โดยเริ่มบันทึกบรรทัดแรกที่ row ที่ 6 ในชีต Table record
ซึ่งดิฉันได้ลองทำปุ่มคำสั่งการด ...

สวัสดีค่ะ ท่านอาจารย์และผู้รู้ทุกท่าน
ดิฉันขอคำปรึกษาเรื่องการใช้ Macro ช่วยในการทำงานหน่อยนะคะ

ไม่แน่ใจว่าจะพอเป็นไปได้มั้ยคะ
ถ้าเราจะนำข้อความใน Cells หนึ่ง ไปใช้เป็น Insert comment ของอีก Cells หนึ่งตาม Matching ที่เราต้องการ
โดยใช้ Macro เป็นตัวบันทึกให้อัตโนมัติน่ะค่ะ

ในที่นี้ดิฉันต ...

แนะนำใช้สูตร SUBSTITUTE แทน Replace ครับ เพราะไม่ต้องระบุตำแหน่ง สามารถแทนที่ตักอักษรที่เราต้องการได้เลย

โดยจะได้สูตรที่ Cell F26 ว่า
=SUBSTITUTE(E26,".",":")

และ Copy ลงมาด้านล่าง

Note
จากที่ผมทดลองที่เครื่องตัวเอง มีส่วนที่ต้องปรับเพื่อให้เหมาะสมได้ค่าตามที่ต้องการ
แนะนำให้เปลี่ยน Format ในช ...

สวัสดีค่ะ
ขอรบกวนท่านอาจารย์และผู้รู้ช่วยเหลือหน่อยนะคะ

เรื่องการแปลงรูปแบบของข้อมูลค่ะ
จุดประสงค์คือ ต้องการเปลี่ยนรูปแบบของข้อมูลเกี่ยวกับ "เวลา" ซึ่ง User จะเป็นผู้ป้อนเข้ามาใน Cell
โดยเวลาที่ User ใส่มานั้น จะใช้ "." เป็นสัญลักษณ์คั่นระหว่าง ชม. กับ นาที เช่น 20.30 / 08.40
แต่เนื่องจากจำเป็นต ...

:D ตัวอย่าง Code ครับ


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\natcha.se\Desktop\strockchecklist" & Format(Now, "yyyymmddhmmss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

ในโอกาสหน้าช ...

สวัสดีค่ะ
ดิฉันขอรบกวนท่านผู้รู้ช่วยหน่อยนะคะ
ต้องการ save ข้อมูลที่ Set Area ไว้ ในหน้า Sheet หนึ่ง ให้เป็นไฟล์ PDF อัตโนมัติ
โดยดิฉันได้สร้างปุ่มคำสั่งไว้เพื่อให้ User กด Save
แต่ปัญหาที่ติดคือ ไฟล์ที่ save ชื่อยังซ้ำกันอยู่ค่ะ จึงต้องการเปลี่ยนชื่อไปเรื่อยๆด้วยค่ะ
เช่น Strock_checklist1 หรือเป็นช ...

สวัสดีค่ะ

หากเราต้องการลบกระทู้หรือแจ้งลบกระทู้
ต้องทำอย่างไรบ้างคะ
ขอบคุณค่ะ

สวัสดีค่ะ

ขอรบกวนท่านผู้รู้ช่วยแนะนำวิธีการบันทึกข้อมูลจาก Sheet หนึ่งไปยังอีก sheet หนึ่งค่ะ
โดยอยากให้เป็นการบันทึกข้อมูลที่คีย์เข้ามา เป็น Record สะสมเอาไว้ที่บรรทัดสุดท้ายของตารางข้อมูลเรื่อยๆโดยอัตโนมัติ
ดิฉันได้ลองใช้คำสั่งโดยบันทึกเป็น macro ดู โดย copy cell link จากหน้าหนึ่งไปยังอีกหน้าหน ...

สวัสดีค่ะ

ขอรบกวนท่านผู้รู้ช่วยแนะนำวิธีการบันทึกข้อมูลจาก Sheet หนึ่งไปยังอีก sheet หนึ่งค่ะ
โดยอยากให้เป็นการบันทึกข้อมูลที่คีย์เข้ามา เป็น Record สะสมเอาไว้ที่บรรทัดสุดท้ายของตารางข้อมูลเรื่อยๆโดยอัตโนมัติ
ดิฉันได้ลองใช้คำสั่งโดยบันทึกเป็น macro ดู โดย copy cell link จากหน้าหนึ่งไปยังอีกหน้าหน ...

puriwutpokin wrote:ลองใช้ค่านี้ใน Validate ครับ
=OFFSET($M$2,1,MATCH($D4,Stock_Control,0)-1,COUNTA(INDEX($M$3:$N$51,,MATCH($D4,Stock_Control,0))))

ทำได้แล้วค่ะ
เอาคำสั่งไปใช้ดัดแปลงกับข้อมูลชุดอื่นก็ทำได้ผลเหมือนกัน
ตอนแรกนั่งทำอยู่เป็นวันเลย
ขอบคุณคุณ puriwutpokin มากๆนะคะ

ขอคำแนะนำจากท่านผู้รู้เรื่องการทำ Drop down list หน่อยนะคะ

เนื่องจากได้ลองทำ Drop down list แบบ 2 ขั้น โดยใช้วิธี Defind name และใช้คำสั่ง Indirect() มา
พบว่าติดปัญหา Error ขึ้นเป็นกล่องข้อความว่า "the source currently evaluates to an error" ค่ะ
พอกดตอบ "Yes" กลับมาสู่หน้า Sheet ก็พบว่า Cell ของ ...