Excel Forum

ขอบคุณมากๆครับ

ผมลองใช้ช่วง U10:AM19 เป็นภาพส่วนท้ายแล้ว มันแสดงทุกหน้าได้ตามต้องการ ซึ่งดีมากครับ
แต่ภาพที่แสดงออกมามีมีช่องสี่เหลี่ยมสีขาวด้านซ้าย ทำให้ดูไม่เรียบร้อย

รบกวนช่วยแนะนำหน่อยได้ไหมครับว่าจะปรับภาพยังไงให้ พอดีขอบ และ ไม่มีขอบขาวเกิน
ขอบคุณล่วงหน้ามาก ๆ เลยครับ

ผมพยายามแล้วครับไปไม่ถูกจริง ๆ
รบกวนด้วยครับงมมา 3 วันแล้ว



Sub PrintFormSheet()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("ฟอร์ม")

Dim headerRange As Range
Dim contentRange As Range
Dim footerRange As Range
Set headerRange = ws.Range("A1:S9")
Set contentRange = ws.Range("A10:S86 ...

ต้องการจากช่วง A87:S96 ครับตามภาพ
ที่ผมทำไว้มันแสดงแต่แผ่นสุดท้าย

แก้หายแล้วแต่อยากให้ แสดง Footer แสดงตั้งแต่หน้าแรกครับ

ลบออกแล้วแต่มันยังไปกำหนดใหม่ใน Header เหมือนเดิมครับ
แล้วส่วนท้ายก็ให้แสดงเริ่มต้นแต่หน้าแรกเลย

สวัสดีทุกท่านผมต้องการความช่วยเหลือ เกี่ยวกับการเขียนโค๊ด VBA ในการสั่งพิมพ์ หัวกระดาษทุกแผ่น
แต่ปัญหาที่ผมเจอ คือ
เมื่อ ขนาด เท่า A4 มันไม่ตัดขึ้นแผ่นใหม่ให้
และหัวกระดาษไม่แสดงแผ่นใหม่

และมีคำว่า รหัสลูกค้า :
ชื่อลูกค้า :
ที่อยู่ลูกค้า :

โทรศัพท์ :


แทรกตรงกลาง



Sub ...

ตอนนี้ลองใช้ =SUMPRODUCT(('2020'!C2:C39998=$B4)*('2020'!A2:A39998=C$2)*('2020'!B2:B39998="ALCOHOL")*('2020'!E2:E39998))

ช่วยดูไฟล์ที่ Sumary.xlsx ให้หน่อยคะ ฉันต้องนำมา Sumary ยังไง ให้เหมือนsheet sample ซึ่งรวมข้อมูลจากชีส
2020, 2021, 2022, 2023, 2024 (เป็นข้อมูลรายปี) ข้อมูลมีคล้ายกันทุกปี
Net Sales ปี 2020 =SUMIFS('2020'!E:E, '2020'!B:B, B3, '2020'!A:A, A3)
Gross Sales ปี 2020 =SUMIFS('2020'!F:F, '2020'!B:B, B3 ...

ขออนุญาติส่งไฟล์ แนบครับ

ขออนุญาติสอบถามครับ
พอดีผมติดนิดนึ่ง

พอดับเบิ้ลคลิกข้อมูลมาครบแต่รูปภาพไม่แสดงครับ

รบกวนด้วยครับ

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim imagePath As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Intern_info")

With Me.ListBox1
Me.TextBox1.Value ...

ขอบคุณมากๆครับ

แต่ยังเออเร่อครับอาจารย์ผมเพิ่มช่วงเข้าไปแล้ว
มันError ช่วงนี้ครับ
Set TargetRange = ws.Range("A4, D4, A6, D6, A8, D8, " & _
"A13, D13, A15, D15, A17, D17, " & _
"A22, D22, A24, D24, A26, D26, " & _
"A31, D31, A33, D33, A35, D35, " & _
"A40, D40, A42, D42, A44, D44, " & _
"A49 ...

ขอบคุณมากครับ

แล้วถ้าหากเลือกทีละเยอะ ๆ ละครับ
ต้องเพิ่มส่วนไหน ผมเพิ่ม เข้าไปเป็น
AllowMultiSelect = True

มันเตือน Bug

Sub InsertPictures()
Dim p As Object
Dim picPaths As Variant
Dim ws As Worksheet
Dim TargetRange As Range
Dim cell As Range
Dim i As Integer

Set ws = ThisWorkbook ...

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

ผมลองปรับโค๊ดแล้ว มันมีขนาดไมเท่ากันครับ

Sub InsertPictures()
Dim ws As Worksheet
Dim Pic As Picture
Dim PicPath As String
Dim cell As Range
Dim r As ...

ขอบพระคุณมากๆครับ

สร้างโค๊ด VBA เพื่อรวมชีสแต่ว่าข้อมูลชีสจัดตำแหน่งไม่เป็นรูปแบบที่คล้ายกันกับตารางหลัก
เพื่อรวมทุกชีสมาไว้ในชีสเดียวกัน ชีส Main คือชีสหลัก โดยมีหัวข้อเก็บข้อมูลจาก A1:V1
แต่รูปแบบข้องชีสต่าง ๆ ไม่เหมือนกันต่างกันแค่ ภาค และจังหวัด
เช่นชีส ProductUpdate A1 คือหัวข้อ =ชื่อ A2 จะเป็นภาค และ A3 คือจ ...

แล้วหากกำหนดวันตามคอลัมภ์ K แล้วแบ่งจำนวนให้เท่าๆ กันละครับ
เช่นตัวอย่าง

ผมลองใส่สูตรแล้วค่าที่ได้ ออกมาเป็น 0 ครับ
Office Version 2021

แสดงจำนวน เต็ม ตามวันที่กำหนดก่อนครับ
ตามตัวอย่างครับอาจารย์

ขอให้แสดงจำนวน เต็ม ตามวันที่กำหนดก่อนครับ