Excel Forum

ขอบคุณครับผม
กรณีที่เราเปลี่ยนจากการดึงข้อมูลมาจากชีทใน Workbook เดียวกัน
เป็นการดึงข้อมูลมาจากไฟล์ .csv จะต้องปรับ Code อย่างไรครับ


Sub Macro2()
Dim fileToOpen As Variant
Dim fileFilterPattern As String
Dim wsMaster As Worksheet
Dim wbTextImport As Workbook
Dim sr As Range, tg As Range, i ...

จากไฟล์ที่แนบมา ต้องการใช้ CodeVB copy ข้อมูลจาก sheet2 มาวางใน sheet1
แต่มีปัญหาว่าไม่สามารถ Copy มาได้หมด เนื่องจากใน Sheet1 มีเซลที่ถูกผสานเซลไว้
พอจะมีวิธีการแก้ไขได้หรือไม่ครับ (โดยยังผสานเซลนั้นเหมือนเดิม)

Sub Macro1()

Sheets("Sheet2").Select
Range("B3:D5").Select
Selection.Copy
Sheets ...

ขอบคุณครับ

จากไฟล์ที่แนบมา ต้องการบันทึกข้อมูลใน Forms ชื่อ FrmCustomer ลงชีท Custommer
โดยใช้ Code

Sub Submit()
Dim sh As Worksheet
Dim iRow As Long
With FrmCustomer

If .txtcus1.Value = "" Then
MsgBox "กรุณากรอกข้อมูลให้ครบ"
.txtcus1.SetFocus
Exit Sub
End If
If .txtcus2.Value = "" Then
MsgBox "กร ...

ขอบคุณครับ

จากไฟล์ที่แนบ
ต้องการใช้ Code เช็คว่า อักษรซ้ายสุดใน F1 เป็น ป หรือไม่
ถ้าเป็น ป ให้ แสดง MsgBox บอกว่า ชั้นประถมศึกษา
ถ้าไม่ใช่ ป ให้ แสดง MsgBox บอกว่า ชั้นมัธยมศึกษา
ต้องปรับ Codeอย่างไรครับ


Sub chkclass()
If Left(Range("F1"), 1).Value = "ป" Then
MsgBox "ชั้นประถมศึกษา"
Else
MsgBox "ช ...

ขอบคุณครับ

ขอบคุณครับ
ได้แนวทางแล้วครับ

จากไฟล์ที่แนบมา
ไฟล์ Update.xlsb เป็นไฟล์ที่มี Code เพื่อสั่งให้แก้ไขข้อความหรือสูตรอีกไฟล์หนึ่ง (ไฟล์ชื่อ PP6.xlsb)
ถ้าต้องการจะให้สามารถแก้ไขได้ โดยชื่อไฟล์ไม่จำเป็นต้องเป็น PP6.xlsb
จะต้องปรับ Code อย่างไรครับ


Sub Edit_Fomula()
'Dim CltWB As Workbook
'Dim SrWB As Workbook
'Set CltWB ...

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

Sub Edit_Fomula()
Sheets("Main").Select
ActiveSheet.Unprotect Password:="1"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Publish!J42"
Range("C2").Select
ActiveCell ...

ขอบคุณครับผม

จากไฟล์ที่แนบมาเป็นการหาเกรดเฉลี่ยของนักเรียนที่เรียน 15 วิชา
ซึ่งใช้สูตรที่แนะนำจากบอร์ดนี้ พบมาเมื่อมีการนำไปใช้แล้วเกิดปัญหา คำนวณผิดพลาด
จากสูตรนี้

=IF(B8="","",IFERROR(TRUNC(SUMPRODUCT(IFERROR($E$7:$V$7*E8:V8,0))/SUMIFS($E$7:$V$7,E8:V8,"<9999"),2),"-"))

ผมดูแล้วน่าจะเกิดจาก บางวิชา จะเป็นต ...

จากไฟล์ที่แนบมาต้องการดึงข้อมูลจากชีท Data ไปแสดงที่ที่ชีท TabK โดยมีเงื่อนไขให้เอาเฉพาะข้อมูลรายการจ่ายเท่านั้น (เอาเฉพาะ รหัส บร บค)
จากสูตรที่ทำมายังติดปัญหาในส่วนของ แถวสุดท้าย ที่มีการแสดงผลที่ไม่ต้องการ จะต้องปรับสูตรอย่างไรครับ

จากไฟล์ที่แนบมา ต้องการใช้ frmcustumer เรียกข้อมูลร้านค้าจาก listbox1 ไปแสดงใน textbox (txtId ,txtname1 ,txtname1)
แล้วแก้ไขข้อความ ใน txtname1 หรือ txtname1 และบันทึกการแก้ไขนั้น
ต้องปรับ Code อย่างไรครับ


Private Sub CommandButton4_Click()
Dim lastrow As Long
lastrow = Worksheets("custumer ...

ขอบคุณครับ
ได้ตามต้องการครับ

จากไฟล์ที่แนบมา ต้องการแทรรูปภาพลงในเซล (ที่ คลอลัมน์ C) ให้พอดีกับขนาดของเซลต่อลงไปเรื่อย ๆ
โดยดึงรูปภาพที่เก็บไว้ในโฟลเดอร์ให้ตรงตามชื่อรูปภาพที่อยู่ใน คลอลัมน์ B

Sub insertpicture2()
Dim student_pic As Picture
Dim pic_location As String
Dim student_name As String
For i = 2 To 11

student_name ...

จากไฟล์ที่แนบมา
ที่ sheet1 เก็บข้อมูลวัสดุที่ซื้อเข้ามาแต่ละครั้ง ซึ่งจะมีซ้ำกันบางรายการ
ต้องการ ดึงรายการข้อมูลจาก Sheet1 ไปไว้ที่ Sheet2 โดยรายการใดซ้ำ ให้เอามาเพียงรายการเดียว
จากโค๊ด

Sub CutStockToNewSheet()
On Error Resume Next
With Sheets("sheet2")
.Range("B2:B50000").Value = Sheets ...

ขอบคุณครับ

ขอบคุณครับ