Excel Forum

:D การ Disable คำสั่งบน Ribbon เป็นเรื่องค่อนข้างยาก จะต้องศึกษาเกี่ยวกับการจัดการ Ribbon โดยอาจจะศึกษาจากคู่มือหรือเริ่มจาก Link นี้ครับ https://www.rondebruin.nl/win/s2/win001.htm ซึ่งจะใช้เวลาค่อนข้างมาก ควรจะมี Tools สำหรับการจัดการไม่ว่าจะเป็น Visual Studio หรือ Custom UI Editor (มีให้ดาวน์โหล...

สวัสดีครับ สอบถามครับว่า
เราสามารถตั้งค่าปิดเมนู "แปลงเป็นช่วง" ได้ไหมครับ
หรือ มี vba ป้องกันการกดปุ่มนี้ปุ่มเดียวได้ไหมครับ
จุดประสงค์คือไม่อยากให้แปลงตารางเป็นช่วงครับ

:D ใช้คำว่า Sheet1 แทน Sheets("Sheet1") ชีตอื่น ๆ ก็ใช้ในทำนองเดียวกันครับ Sub test() Sheet1.Visible = xlSheetVeryHidden End Sub แบบนี้ได้ผลลัพธ์ตามต้องการเลยครับ ใช้ชื่อชีทมาตั้งนาน บางชื่อมี . บางชื่อมีช่องว่าง มีเลขนำหน้า ก็ใช้ไม่ได้ ต้องมานั่งไล่แก้ชื่อชีท พอแก้โค้ดแล้วชีวิตดีขึ้นเยอะ...

สมมุตว่าผมมีชีท 3 ชีท Sheet1(index) Sheet2(data) Sheet3(report) ผมเขียนโค้ดเป็น แบบนี้ Run ได้ปกติครับ Sub test() Sheets("index").Visible = xlSheetVeryHidden Sheets("data").Visible = xlSheetVeryHidden End Sub แต่หากผมต้องการเป็น ชื่อตามชีทเลย เป็น Sheet1 แบบด้านล่างนี้ ต้องปรับโค...

snasui wrote: ↑Fri Jul 22, 2022 6:43 am สามารถใช้ Named range เก็บค่าตัวแปรใด ๆ แทนเก็บเอาไว้ในเซลล์ได้ครับ

Named range จะเก็บค่าคงที่ธรรมดาหรือค่าคงที่ Array ก็ได้ ลองประยุกต์ใช้ดูครับ

ขอบคุณครับ

จากตัวอย่างโค้ด มีวิธีการเปลี่ยนค่าที่ r จาก 200 เป็นเลขอื่น ได้อย่างไร หาก ไม่เก็บค่าไว้ที่ CELL แล้วอ้างอิงมา โดยให้เปลี่ยนที่โค้ด แต่ ไม่ต้องเข้ามาที่หน้าเขียนโค้ด สามารถสร้าง UserForm ขึ้นมาเพื่อเปลี่ยนค่าตรงนี้ได้ไหมครับ Sub test() Dim r As Integer Dim s As Integer Dim t As Integer r = 200 s = ...

ได้ผลลัพธ์ตามต้องการครับ ขอบคุณครับ

จากไฟล์และโค้ดนี้ Sub cmdSave_Click() Dim r As Long If Application.CountIf(Range("s:s"), TextBox1.Text) > 0 Then MsgBox "รหัสนี้มีแล้ว!!!" TextBox1.Value = "" Exit Sub End If 'If Application.CountIf(Range("b:b"), TextBox2.Text) > 0 Then 'MsgBox "ชื่อซ้ำ!!...

snasui wrote: ↑Sat Jun 18, 2022 9:02 am ตัวอย่างสูตรในเซลล์ H5 ครับ

=IFERROR(INDEX(C:C,AGGREGATE(15,6,ROW(Table2[วันที่])/((Table2[วันที่]=$L$3)*(Table2[จำนวน]>0)),ROWS(L$5:L5))),"")

Enter > Copy ไปด้านขวาและลงด้านล่าง

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

ตัวอย่างสูตรครับ L16=IFERROR(INDEX(D:D,AGGREGATE(15,6,ROW(Table2[วันที่])/(Table2[วันที่]=$J$4)/(Table2[เลขที่]=$J$5),ROWS(J$13:J13))),"") Copy ลงด้านล่างครับ :D ขอแก้ไขครับผมตั้งโจทย์ผิด ต้องการดึงรายการจาก Table2 โดยมีเงื่อนไข ว่าให้ดึงจากวันที่ และเลขที่ และจำนวน ที่มากกว่า 0 ตอนนี้ผมด...

puriwutpokin wrote: ↑Fri Jun 17, 2022 5:17 pm สำหรับ MS 365
L16=FILTER(Table2[รายการ],(Table2[วันที่]=J4)*(Table2[เลขที่]=J5))

Xcelvba wrote: ↑Fri Jun 17, 2022 5:00 pm ตัวอย่างสูตรครับ
L16=IFERROR(INDEX(D:D,AGGREGATE(15,6,ROW(Table2[วันที่])/(Table2[วันที่]=$J$4)/(Table2[เลขที่]=$J$5),ROWS(J$13:J13))),"")

Copy ลงด้านล่างครับ

ขอบคุณครับ

ต้องการดึงรายการจาก Table1 โดยมีเงื่อนไข ว่าให้ดึงจากวันที่และเลขที่
ตอนนี้ผมดึงรายการ ได้จากเงื่อนไขวันที่แล้วครับ ต้องการเงื่อนไขจากเลขที่ด้วยครับ

snasui wrote: ↑Thu May 26, 2022 8:34 am ถ้าเป็นการคัดลอก Code มาวาง ให้คีย์เปลี่ยน Double quote (ตัวอักษร ") ทุกตัวเสียใหม่ครับ

ได้แล้ว ขอบคุณครับ

ผมได้ลองทำตามวิธีการในเว็บนี้ครับ https://alesandrab.wordpress.com/2014/09/18/combination-line-pie-chart/?fbclid=IwAR2CK0MjFJMephLoOx1F8I4prY2QHF0gKqquCi3DkU0q7UwV8jqnhMhwEys ติดปัญหาการรัน VBA บรรทัดที่ 9 ครับ Sub PieMarkers() Dim chtMarker As Chart Dim chtMain As Chart Dim intPoint As Integer Dim ...

snasui wrote: ↑Mon May 16, 2022 11:30 am Excel ไม่มี Option การพิมพ์ซ้ำท้ายตาราง การเลือกใช้ภาพจึงเป็นทางเลือกที่ดีแล้วครับ

ขอบคุณครับ

:D ตัวอย่างการปรับ Code ครับ 'Other code Dim lng As Long lng = Rows.Count i = Range("B" & lng).End(xlUp).Row Do i = i - 1 Loop Until Range("b" & i).Value <> "" ActiveSheet.PageSetup.PrintArea = "$A$2:$G$" & i 'Other code :D :D ขอบคุณครับ ได้ผลลัพธ...

สอบถามการ SetPrintArea ครับ จากไฟล์ ผมต้องการสั่งบันทึกPDF ตาราง ในชีท รายงาน แต่จากข้อมูลที่รายงานออกมา มีไม่เท่ากัน ผมต้องการตัดตารางส่วนที่ว่างออก ก่อนพิมพ์ ผมลองเขียนโค้ด สองแบบ ครับ สั่งบันทึก PDF ได้แล้ว ติดปัญหาไม่ตัดตารางส่วนที่ว่าง ครับ Sub Printrang() Dim Print_Area As String Sheets("...

:D ลองปรับที่ค่า x ให้มีค่ามากขึ้นเพื่อวางแต่ละชุดให้ห่างกัน ส่วนจะปรับเป็นค่าเท่าใดนั้นจะต้องลองปรับเองแล้วสังเกตผลลัพธ์จนได้ตามที่ต้องการครับ ได้แล้วครับ ผมลองปรับ ค่า X และกำหนด Range ที่ต้องการให้สัมพันธ์กับพื้นที่การพิมพ์ ตามโค้ดด้านล่าง ได้ผลตามต้องการเลยครับ ขอบคุณมากๆครับ Sub PrintOutput() ...

:D ตัวอย่างการปรับ Code ครับ Sub PrintOutput() Dim i As Integer Dim a As Integer Dim v As Integer Dim x As Long Dim nb As Workbook On Error Resume Next v = InputBox(Title:="StartNo.", prompt:="InputStartNo.") a = InputBox(Title:="EndNo.", prompt:="InputEndNo."...

จากไฟล์แนบผมได้ สร้างการบันทึกไฟล์เป็น PDF แต่ติดปัญหาตรงที่โค้ดจะสั่งพิมพ์1หน้า1ไฟล์ PDF ผมต้องการให้ทุกหน้า อยู่ใน PDF ไฟล์เดียวกันครับ และ ชื่อไฟล์ที่ต้องการคือ DATA+ช่วงที่พิมพ์ ครับ เช่น. สั่งพิมพ์ 1-10 ชื่อไฟล์จะเป็น DATA_1-10.pdf สั่งพิมพ์ 10-15 ชื่อไฟล์จะเป็น DATA_10-15.pdf ประมาณนี้ครับ Sub...