Excel Forum

ครับ อาจารย์

ต้องการรวมค่า Unique จากชีต "Detail" เลี้มจาก Q10:ADxx รวมไปไว้ที่ชีต "SUM" ตรง A9, และรวมจํานวนตัวเลขเข้าด้วยกัน
ตัวอย่างพาบ:

ครับ อาจารย์,

ึความต้องกานก็คือ อยากจะทำกานรวมข้อมูล Summary แบบ unique ไม้มีตัวซ้ำกัน
ตัวอย่างเช่น:
sheet( detail ) เอาไว้ใส่ข้อมูลแบบละเอียด อย่างเช่น A = 10
A = 11
B = 12
sheet (SUM) ข้อมูลแบบละสรุปลวม จะได้ A = 21
B = 12 เป็นต้นครับ

รบกวน อาจารย์ ด้วยครับ

ครับ อาจารย์,
ผมได้ทำตามแล้วครับ แต่ดู่เหมือนว่า มันยังช้า
อาจารย์พอจะมี code ตัวไหน ที่ไม่ใช้การบันทึก Macro ไหมครับ
รบกวน อาจารย์ ด้วยครับ


Sub summary()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Sheets("data").Visible = True
Worksheets.Add(After ...

สะหวัดดีครับ อาจารย์

ขออนุญาตรบกวนสอบถาม VBA ครับ

ผมมีข้อมูลอยู่ในตาราง sheet "DETAIL" ชิ่งตะต้องใส่ข้อมูน
และ มี sheet "SUM" จะเป้น summary ข้อมูล ที่เราใส่ทุกอย่าง sheet "DETAIL"

ดูเหมือนว่า ตอนนีมันทำงานช้ามากครับ อาจารย์ ผมอยากให้ code ทำงานให้เร็วขิ้น

รบกวนอาจารย์ข่วยดูให้ด้วยครับ


Sub ...

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

รบกวนอาจารย์ดูให้ด้วยครับ

rivate Sub CommandButton1_Click()

With Application
.EnableEvents = False
.DisplayAlerts = False
.ScreenUpdating = False
.Calculation ...

สวัสดีครับ อาจารย์

ขออนุญาตรบกวนสอบถาม VBA ครับ

ผมมีข้อมูลอยู่ในตาราง ผมต้องการให้ ใส่ code ตามเงื่องไขดือว่า
1 ถ้าหาก ช่อง Code มีละหัด 123, ช่อง Conv ให้ใส่คำว่า A
ถ้าหาก ช่อง Code มีละหัด 150, ช่อง Conv ให้ใส่คำว่า B
ถ้าหาก ช่อง Code มีละหัด 456, ช่อง Conv ให้ใส่คำว่า C
2 ถ้าหาก ช่อง Code ไม ...

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

ผมได้ทดสอบแล้วครับ มันยังเกีด Error และ ผมไม่มี Lotus Note ODBC driver ไม้รู้ตะทำยังไงค่อดี

ต้องกานจะดิงข้อมูนจาก Lotus Note มาใส่ใน sheet " Notes All " ครับ

แนบไฟล์ตัวอย่างมาให้ใหม่แล้วครับ

สวัสดีครับ อาจารย์ และ ผู้รู้ ทุกท่าน

มีปัญหา เกียวกับ ด่านล่างนี้
ไม่รู้ตะทำยังไง
รบกวนด้วยครับ

ขอบคุณครับ อาจารย์

บรรทัดนี้ครับ

Dim x$, y&

x = IIf(SecOptM, "Annually", "Total")
y = Application.Match(x, .Range("b:b"), 0)
Range("b" & y).Resize(RowNTextBox).EntireRow.Insert

ขอบคุณ อาจารย์ ครับ

รบกวนอาจารย์ ช่วยอธิบาย Code ให้ด้วยได้ไหมครับ ?

ครับ อาจารย์
ขอโทษ อาจารย์

ตรงนี้ครับ มันจะ loop ไปเรีอยຯ และ กระโดดไปที่ End Sub ครับ



For Each c In r
If c.Value <> "" Then
Do Until ActiveCell.Value = ""
If UCase(ActiveCell.Value) = UCase(c.Value) And _
c.Value <> "" Then
If Val(LinesToInsert) <= 50 Then
On Error Resume Next
r ...

Code ที่อยู่ข่างใน ปุ่ม "Add" ใน user form ครับ


Private Sub AddBotton_Click()

If SecOptM = True Then

Dim LinesToInsert As Variant
Dim rTarget As Range

With Sheets("MAIN")
'Set rTarget = Range("a" & .Rows.Count).End(xlUp).Offset(-6, 0)
Set r = ActiveCell

Sheets("Main").Select: Range("b9 ...

ครับ อาจารย์
ขอโทษ อาจารย์ ที่ลืมเอาออก, ปุ่ม "Add" ใน user form "Add Rows Details" ครับ


แนบไฟล์ มาให้ไห่มแล้วครับ

สะหวัดดีครับ อาจารย์

ขออนุญาตรบกวนสอบถาม VBA ครับ

I) ผมมีข้อมูลอยู่ในตาราง แบ่งออกเป็นสองสว่น
1:คือส่วนของ Monthly
2:คือส่วนของ Annually

ผมต้องการเพี่ม Row ที่อยู่ในตารางโดยมืเงือนไขอยู่ว่า:
ถ้าเราเลือก option "Monthly" ใน user form ให้เพี้ม Row ตามจำนวนที่เราต้องกาน ในส่วนของ "Monthly" หลือว ...

ขอบคุณครับอาจารย์ครับ

สวัสดีครับ อาจารย์
พอผมลองทดสอบ run code ทังหมด และ ตรวจเพิ่มเติม, มีปัญหาเพี่มอีก อยากจะรบกวนอาจารย์ครับ
คิอ ผมพิมชื้อในตะลางว่า Name ว่า " Bb " 2 แถว, และทดสอบดู ปลากดว่า ใน sheet "Bb" ชื้อใน ตาราง แยกกันคนละแถว และ มี่ "name...Date" มาขั้นละหว่าง ชื้อ "Bb" สองครั้ง

ชื้งผมค้องกาน ถ้าทีชื้อช้ำก ...

ขอบคุณครับอาจารย์ครับ สำหรับความ กะรุนา