 |
| |
สอบถามเกี่ยวกับ Excel สามารถ นับจำนวนวนแล้ว copy มาปริ้นได้ไหม |
| |
 |
|
|
 |
 |
|
ได้ครับใช้ VBA macro รึจะเขียนโปรแกรมใหม่ก็ได้ครับ
|
 |
 |
 |
 |
| Date :
2014-10-29 10:21:08 |
By :
lamaka.tor |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
http://office.microsoft.com/th-th/excel-help/RZ001150634.aspx?section=2
http://office.microsoft.com/th-th/excel-help/RZ001150634.aspx?section=10
http://provision.co.th/index.php?option=com_docman&task=cat_view&gid=122&Itemid=27
|
| |
|
|
| |
| Date :
2014-10-29 10:58:38 |
By :
lamaka.tor |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Sub test()
Dim c As Integer
Dim r As Integer
Dim i As Integer
r = 1
For r = 1 To 100
i = 5 + Sheet1.Cells(r, 3).Value
For c = 5 To i
Sheet1.Cells(r, c).Value = Sheet1.Cells(r, 1).Value & " " & Sheet1.Cells(r, 2).Value
Next
Next
End Sub
|
| |
|
|
| |
| Date :
2014-10-29 11:08:36 |
By :
lamaka.tor |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
 ตอบความคิดเห็นที่ : 6 เขียนโดย : nannaja เมื่อวันที่ 2014-10-29 15:46:49
รายละเอียดของการตอบ ::
Sub test()
Dim c As Integer
Dim r As Integer
Dim i As Integer
r = 1
For r = 1 To 100
i = 5 + Sheet1.Cells(r, 3).Value
For c = 5 To i - 1 'โทษทีครับตอนรันก็ลืมดู แก้ให้แล้วนะครับ
Sheet1.Cells(r, c).Value = Sheet1.Cells(r, 1).Value & " " & Sheet1.Cells(r, 2).Value
Next
Next
End Sub
|
ประวัติการแก้ไข
2014-10-29 15:59:15
| |
|
|
| |
| Date :
2014-10-29 15:58:02 |
By :
lamaka.tor |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ตอบความคิดเห็นที่ : 8 เขียนโดย : nannaja เมื่อวันที่ 2014-10-29 16:18:12
รายละเอียดของการตอบ ::
Sub Test()
Dim c As Integer
Dim r As Integer
Dim i As Integer
r = 1
Worksheets.Add().Name = "Worksheets_" & Worksheets.count + 1 //ให้ไปอยู่ใน Worksheets อื่นซะเลย 5555
For r = 1 To 100
i = 5 + Sheet1.Cells(r, 3).Value
For c = 5 To i - 1 'â·É·Õ¤ÃѺµÍ¹Ãѹ¡çÅ×Á´Ù á¡éãËéáÅéǹФÃѺ
Worksheets("Worksheets_" & Worksheets.count).Cells(r, c).Value = Sheet1.Cells(r, 1).Value & " " & Sheet1.Cells(r, 2).Value
Next
Next
End Sub
ถ้าไม่ชอบแบบนี้ก็ให้เคลีย Worksheets เก่าออกแล้วค่อยลงใหม่ก็ได้ครับ
Sub test()
Dim c As Integer
Dim r As Integer
Dim i As Integer
r = 1
เคลีย
For r = 1 To 100
i = 5 + 500
For c = 5 To i - 1
Sheet1.Cells(r, c).Value = ""
Next
Next
เพิ่ม
For r = 1 To 100
i = 5 + Sheet1.Cells(r, 3).Value
For c = 5 To i - 1
Sheet1.Cells(r, c).Value = Sheet1.Cells(r, 1).Value & " " & Sheet1.Cells(r, 2).Value
Next
Next
End Sub
ไม่ได้ใช้นานแระครับอาจจะฝืดๆบ้านๆไปบ้าง 5555
|
| |
|
|
| |
| Date :
2014-10-29 16:56:14 |
By :
lamaka.tor |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
