Excel Forum

แก้ไขใหม่ใช้ได้แล้วครับ Sub Clone() Workbooks("final.xlsm").Worksheets("Sheet1").Range("C1:N630").Copy Sheets(7).Activate Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Workbooks("f...

Sub Clone() Dim Cbook As Workbook, CheckFile As Boolean Set Cbook = ThisWorkbook Cbook.Sheets(1).Range("C1:N700").Copy Cbook.Sheets(7).Range("A1:L700").Offset(0, 0).PasteSpecial xlPasteValues ThisWorkbook("Sheet7").Range("B1:L700").Sort _ Key1:=ThisWorkbook(&...

rng คือ ข้อมูลที่จะนำมาแสดงผล ประกอบด้วย B2:B20, E2:E20, G2:H20
ต้องเขียนประกาศเพิ่มอย่างไรครับ จากตัวอย่างนี้

Set rng = Sheets(6).Range("B2:B20").SpecialCells(xlCellTypeVisible)

ได้คำตอบตามต้องการแล้ว ขอบคุณมากครับ

Col P = เปรียบเทียบ
Col R = ผลที่ได้จากคำสั่ง =RANK(P2,P$2:P$10,0)
Col S = ตัวอย่างที่ต้องการแก้ไขให้ Col R แสดงผลลัพท์ คือ ไม่มีลำดับที่ซ้ำกัน

ไฟล์ที่ใช้งาน มีการดึงข้อมูลจากเวปเป็นลูป และใช้เวลานานมาก จึงต้องการ combobox ขั้นในลูป โดยเลือกได้ว่าจะให้ทำงานต่อ หรือยกเลิกการทำงานนั้น โค้ดที่ลองเขียนผิดพลาดคือ ไม่แสดงข้อมูลให้เลือก และเงื่อนไขยังไม่ทำงานครับ

ComboBox เพื่อสั่งให้ทำงานต่อหรือยกเลิก ต้องแก้ไขอย่างไรบ้างครับ Private Sub ComboBox1_Change() End Sub Private Sub CommandButton1_Click() With ThisWorkbook.ComboBox1 .AddItem "Continue" .AddItem "QUIT" End With If ComboBox1 = "QUIT" Then Application.Quit End If 'Call o...

ทำงานได้สมบูรณ์ดี ขอบคุณมากครับ

จาการทดลองมีปัญหา 2 ข้อ ขอรบกวนอาจารย์แนะนำด้วยครับ

1). Nwait ค้าง ไม่ทำงานตามเวลาที่ Non กำหนด
2). ปิดไฟล์โดยไม่ถาม save ไม่ทำงาน

Sub Counter() If Now > Date + TimeValue("10:00:00") Then Application.OnTime Date + TimeValue("10:00:00"), "Counter", , True Else xxx Wait xxx End If If Now > Date + TimeValue("17:00:00") Then Application.OnTime Date + TimeValue("17:00:00"), "Co...

ใช้งานได้แล้ว ขอบคุณอาจารย์มากครับ
Flowchart / วิธีการคิดทบทวน ผมต้องฝึกฝนอีกมากเลย

Sub Col_Scale() Dim cfColorScale As ColorScale Selection.ClearFormats Range("f1", Range("f" & Rows.Count).End(xlUp)).Select Set cfColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=2) 'cfColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(0, 0, 255) c...

:D ส่วนกรณีที่ต้องการให้ Format ขยายตามปริมาณข้อมูล ลองปรับ Code เป็นตามด้านล่างครับ Sub Col_Scale() 'Other code Range("f1", Range("f" & Rows.Count).End(xlUp)).Select 'Other code Range("g1", Range("g" & Rows.Count).End(xlUp)).Select 'Other code End Su...

1. OK
2. OK
3. มีเสียง 1 ครั้งแต่ใช้งานได้ก็ OK

4. Shortcut X = run macro / stop macro โดยไม่ต้องเปิด/ปิด ไฟล์ ทำได้อย่างไรครับ
5. ปิดไฟล์โดยไม่สนใจคำถามว่า บันทึกไฟล์แก้ไขก่อนหรือไม่ ทำได้อย่างไรครับ

1). key1:=Sheets("Sample").Range("A1:A15"), order1:=xlAscending, _ทำงานปกติ แต่ไม่ทำงานเมื่อแทนค่าด้วย xlDecending
2). ไม่ต้องการให้บันทึกเงื่อนไขของ Condition Formatting ที่จะเพิ่มขึ้นทุกครั้งที่ refeash
3). ต้องการเพิ่มเสียงให้ดังมากกว่า 1 ครั้ง

ขอรบกวนอาจารย์ช่วยแนะนำด้วยครับ

ข้อมูลที่ดึงมาควรเป็นดาต้า แต่กลายเป็นซอสโค้ด ตามตัวอย่างควรแก้ไขอย่างไรครับ

:D ทำตามที่คุณ joo แนะนำ เปลี่ยนข้อ 3-4 ตามที่ผมระบายสีข้อความไว้ครับ :D ลองแบบนี้ดูครับ 1. คลุมพื้นที่ช่วงข้อมูล B7:AE11 2. เข้าเมนู Home > Conditional Formatting > New rule 3. ตรง Select a Rule Type: คลิกเลือก Use a formula to determine which cells to format 4. ที่ Format values where this formul...

หากมีข้อมูลในการค้นหามากประมาณ 30 cell มีวิธีการ copy หรือทำให้รวดเร็วแทนการคีย์ครั้งละ cell ได้อย่างไรครับ

ใช้งานได้ดี ขอบคุณมากๆครับ

ข้อ 2. ทำได้ตามต้องการแล้วครับ

เพิ่มเติม
ข้อ 3. ผมได้แนบไฟล์เพื่อใช้ conditional Formatting โดยกำหนดให้ col N > col F หากเป็นจริง ให้แสดงสีแดง
แต่ทำไม่ได้ ซึ่ง excel ฟ้องว่าให้ตั้งเงื่อนไขได้ครั้งละ cell ไม่ใช่ทั้ง col