winston219

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-12-3 23:11 | 顯示全部帖子

[發問] 如何在有資料的地方自動編號?

請問如何在有出現姓名的地方，自動向下編號? 且編號能置中對齊? (如下1、2、3的數字自動跑出來)

編號姓名
1    林小明
2    張大同
3    李小璇

樓主熱帖

winston219

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

2^#

發表於 2010-12-4 00:33 | 顯示全部帖子

謝謝oobird大大丫，您真是我的貴人咧~

TOP

winston219

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

3^#

發表於 2010-12-5 18:24 | 顯示全部帖子

謝謝GBKEE大大的細心說明!

TOP

winston219

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

4^#

發表於 2010-12-5 18:27 | 顯示全部帖子

請問如何自動計算合計? (如下之70、60、55自動算出)

編號姓名    金額1    金額2    合計
1    林小明    50       20       70
2    張大同    20       40       60
3    李小璇    30       25       55

TOP

winston219

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

5^#

發表於 2010-12-6 15:06 | 顯示全部帖子

請問GBKEE大大，如何用VBA寫程式?

TOP

winston219

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

6^#

發表於 2010-12-6 22:52 | 顯示全部帖子

哈，感謝GBKEE大大的教導!

TOP

winston219

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

7^#

發表於 2010-12-6 23:46 | 顯示全部帖子

請問大大，下列的程式碼之結果，若不想出現多餘的空白格子，即不想最後一筆資料跳到65536，我的資料約編號到500而已，請問該如何修改?
Sub yy()
[a:a].HorizontalAlignment = xlCenter
Range("a2:a" & [b65536].End(3).Row) = "=row()-1"
[a:a] = [a:a].Value
End Sub

TOP

winston219