Snasui 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 "ชื่อซ้ำ!!!"
'Exit Sub
'End If
With ...

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 ...

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 ...

: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.")
If Err = 13 Then
MsgBox ...

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