麻辣家族討論版版 » Excel程式區 » 程式碼修改

返回列表下一主題上一主題發帖

程式碼修改

中學生 Rank: 2

帖子: 52
主題: 13
精華: 0
積分: 119
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-5-6
最後登錄: 2022-6-7

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-1-19 12:02 | 顯示全部帖子

程式碼修改

Dim i&, R As Range, Y%
i = 2: Y = 1
With Sheet2
Do While .Cells(i, "b") <> ""
Set R = .Cells(i, "b")
With Sheet1.Cells(i - 1, Y)
.Value = R & Chr(10) & R(1, 2) & R(1, 3) & R(1, 4) & Chr(10) & Chr(10) & R(1, 5) & Space(20) & R(1, 6) & "收" & Chr(10)
.ColumnWidth = 33
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.IndentLevel = 1
End With
If Y = 1 Then
Y = 1: i = i + 1
Else
Y = Y + 1
End If
Loop
End With
' Sheet1.PrintOut
End Sub

複製代碼

這程式碼是抄用其他大大所寫，我想改變資料寫入方式，1.原始方式是a1'b1'c1'''''向下寫入，可否改成a1,b1,c1,d1,e1,f1，再跳a2,b2,c2,d2,e2,f2。
2. R(1, 2)字大小10，R(1, 6)字大小14。自己想了許久就是無法達成，請先進幫忙。

樓主熱帖

收藏

中學生 Rank: 2

帖子: 52
主題: 13
精華: 0
積分: 119
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-5-6
最後登錄: 2022-6-7

2^#

發表於 2011-1-19 16:02 | 顯示全部帖子

附上檔案請大家幫忙囉!

100.zip (5.51 KB)

中學生 Rank: 2

帖子: 52
主題: 13
精華: 0
積分: 119
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-5-6
最後登錄: 2022-6-7

3^#

發表於 2011-1-20 16:44 | 顯示全部帖子

感謝hugh0620 Hsieh 二位大大幫助，祝福新年快樂。

中學生 Rank: 2

帖子: 52
主題: 13
精華: 0
積分: 119
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-5-6
最後登錄: 2022-6-7

4^#

發表於 2011-1-20 16:54 | 顯示全部帖子

再請教Hsieh大大程式中如何去設定Cells(r + i, 2)文字大小12"及Cells(r + i, 3)二個文字大小文字大小12"
謝謝

中學生 Rank: 2

帖子: 52
主題: 13
精華: 0
積分: 119
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-5-6
最後登錄: 2022-6-7

5^#

發表於 2011-1-21 08:55 | 顯示全部帖子

謝謝Hsieh 版主，真是讓人讚佩，這樣就不受字數限制，跳行後該行字大小一致。

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。

返回列表下一主題上一主題