Excel Forum

ลองแบบนี้ว่าใช้ได้ไหมครับ
Sub test1()
Dim rt As Range
Set rt = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
rt = Sheets("Sheet1").OLEObjects("TextBox1").Object.Text
rt.HorizontalAlignment = xlCenter
rt.Offset(0, 1) = Sheets("Sheet1").OLEObjects("TextBox2").Object.Text
rt ...

เรียนผู้เชี่ยวชาญ ช่วยแนะนำครับ

พอดีว่าผมมีความต้องการในการกำหนดให้ตัวเลขที่ได้รับจาก Textbox ที่เป็นข้อความให้เป็นตัวเลขปกติครับ

ขอคำชี้แนะครับ

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

ขอบคุณครับอาจารย์ เดี๋ยวจะลองเอาไปทำดูก่อนครับ

ถ้าตามโค้ด นะครับ ถ้าในช่อง เป็น PK ให้ช่วงของคอลัมน์ A : J ในแถวนั้นเป็นสีขาว
ถ้าในช่อง เป็น SE ให้ช่วงของคอลัมน์ A : J ในแถวนั้นเป็นสีเหลือง
ถ้าในช่อง เป็น RB ให้ช่วงของคอลัมน์ A : J ในแถวนั้นเป็นสีเขียว

พอดีว่าไฟล์ต้นฉบับไม่ได้เอามาด้วย แต่ผมจะแนบไฟล์ผลลัพธ์ ที่จะให้เป็นก็แล้วกันนะครับ

พอดีว่าผมมีช่วงคอลัมน์ เช่น A : J ที่ผมต้องการใส่สีช่องโดยการเช็คค่า จากช่องหนึ่งช่อง ในการแบ่งสี

ผมใช้ For ในการวนแถว

ปัญหาคือ ผมเอาค่า i ไปเป็นค่า ในช่วงของ คอลัมน์ไม่ได้ A : J ช่วยแนะนำหน่อยครับ


For i = 7 To 17 Step 1

If Cells(i, 7) = "RB" Then
Worksheets("test").Cells(i, 7).Select ...

ขอบคุณครับ

ช่วยอธิบายในส่วนของ SpecialCells หน่อยครับ พยายามทำความเข้าใจครับ

Sheets("Sheet2").Select

Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Sheet2").Select

Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


ขอโทษด้วยนะครับที่ไม่ได ...

เข้าเรื่องเลยนะครับ พอดีต้องการเขียนโค้ด คัดลอก ข้อมูลไปยังอีก Sheet ซึ่งผมได้ลองเขียนแล้ว

ปัญหาคือ ผมไม่อยากให้บรรทัดที่ซ่อนติดมาด้วยครับ

อันที่จริงมีปัญหาอีกสองข้อแต่เอาอันนี้ก่อนดีกว่า ครับ

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

Sheet1 คือหน้าข้อมูล
Sheet2 คือหน้าที่เอาข้อมูลไปวาง

ขอบคุณสำหรับคำตอบครับ จะพัฒนาการถามครับ

อาจจะเป็นเรื่องง่ายสำหรับบางคนนะครับ แต่ผมคิดไม่ออก

คือ ผมมีไฟล์ 10 ไฟล์ โดยมีคน 10 คนเป็นคนกรอกข้อมูล และ 10 ไฟล์นี้อ้างอิงกันโดยใช้ =Cell ของอีกไฟล์ เพื่อที่จะได้เห็นข้อมูล

ปัญหาคือ เกิดความช้าเมื่อมีข้อมูลจำนวนมาก ๆ และจำเป็นต้องเห็นการเปลี่ยนแปลงข้อมูลอยู่ตลอด

อยากทรายว่า เราสามารถนำ VBA ...

ว้าว ตอบเร็วมาก หวังว่าจะได้คำตอบเร็วทันใจ

สมาชิกใหม่ครับ ชื่อเจน ทำงานเกี่ยวกับพัฒนาระบบการทำงาน โดยใช้ VBA เป็นมือใหม่

หวังว่าจะได้ความรู้อะไรมากมายจากที่นี่ ฝากตัวด้วยคร๊าบบ