Excel Forum

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

แต่ยังเออเร่อครับอาจารย์ผมเพิ่มช่วงเข้าไปแล้ว
มัน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

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

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

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



ขอบพระคุณล่วงหน้าครับ

ปรับได้ประมาณนี้ครับ
แต่ว่า เมื่อ Loop เสร็จ ชีสแรก ไม่ไปหาชีสถัดไปครับ

Sub MergeSheets()
Dim mainSheet As Worksheet
Dim ws As Worksheet
Dim lastRow As Long
Dim targetRow As Long
Dim i As Long
Dim j As Long
Dim cell As Range

On Error Resume Next
Set mainSheet = ThisWorkbook.Worksheets ...

เขียนสูตร VBA เพื่อรวม Sheet ให้มารวมกันเป็น ชีสเดียวแบบนี้
ผมลองดูแล้วมันมาไม่ครบครับ

Sub MergeSheets()
Dim mainSheet As Worksheet
Dim ws As Worksheet
Dim lastRow As Long
Dim targetRow As Long
Dim i As Long

On Error Resume Next
Set mainSheet = ThisWorkbook.Worksheets("MainSheet")
On ...

ติดอีกนิดเดียว
รบกวนอาจารย์

คือถ้าหากตัวเลขชุดไหนไม่ตรงกับช่องอื่น ๆเลยให้มันเป็นสีขาวเหมือนเดิมได้ไหมครับ

ได้โค๊ดมาเป็นโค๊ดตัวนี้ครับ

Sub Test0()
Dim rall As Range, r As Range, strVal As String
Dim d As Object, x As Long

Application.ScreenUpdating = False
Set d = CreateObject("Scripting ...

ขอบคุณมากครับอาจารย?

069 096
609 690
960 906
ทั้ง6ตัว สีเดียวกัน พอเปลี่ยนสีต่างกันครับ

แต่หากมองไม่เห็นเลข 0 ข้างหน้า
ต้องปรับให้ฟังก์ชัน Sort0
จัดการกับข้อมูลเป็นสตริงแทนใช่ไหมครับ
ไม่แน่ใจว่าผมมาถูกไหมครับ

Function Sort0(v As Variant) As String
Dim i As Integer, j As Integer
Dim arr ...

ขออภัยครับ อาจารย์
ผมแนบไฟล์มาให้ใหม่แล้ว

VBA สั่ง Highlight เน้นเซลล์ ที่มีตัวเลขเหมือนกันและซ้ำกันใน Excel
ตัวอย่างเช่น 123,213,321,231 และ 301,103,310.130
แต่ละชุดตัวเลข เปลี่ยนสีที่แตกต่างกันไป

ผมแนบตัวอย่างโค๊ดและไฟล์ตัวอย่างมาให้
ขอบคุณอาจารย์มาก ๆ

Sub Highlight_Duplicate_Entry()
Dim ws As Worksheet
Dim cell As Range
Dim ...

โอ้วววว ขอบคุณมากครับ

รบกวนอาจารย์ช่วยผม ดูข้อมูลด้วยครับ
ช่วยผมสร้างหน้ารายงาน สูตรไม่ทำงาน
จากข้อมูลที่ชีส Transaction
ค้นหาจากวันที่ หากวันที่จาก A3= ชีส Transaction A2:A5000
ถึง ฺB3= ชีส Transaction A2:A5000
ชื่อร้าน J3= ชีส Transaction I2:I5000
ให้แสดงข้อมูลทั้งหมด A2:K5000

สูตรมันแสดง #VALUE! ครับ
ใช้ MS H&B ...

ขอบคุณอาจารย์ มาก ๆครับผม

ช่อง Name มาแต่หัวข้อครับ
และลำดับที่ 2 ไปเริ่มต้นที่ คอลัมถ์ L
รบกวนด้วยนะครับ

ผมรบกวนแปะเลขที่บัญชีไว้ให้ผมด้วยครับมีค่ากาแฟให้