昱得資訊工作室
麻辣學園
歡迎光臨, 訪客. 請先 登入註冊一個帳號.
您忘了 啟用您的帳號嗎?
2008-07-25, 04:04:49
首頁 說明 登入 註冊 贊助論壇 想當作者?
新聞: 請會員來訪時務必完成登入,為維護論壇品質,將不定期刪除長時間未登入的會員!!


+  麻辣家族討論區
|-+  MS Office 系列
| |-+  EXCEL
| | |-+  Excel程式區 (版主: hsieh)
| | | |-+  B欄 C欄資料自動乘上100
0 會員 以及 1 訪客 正在閱讀本篇主題. « 上一篇主題 下一篇主題 »
頁: [1] 向下 列印
作者 主題: B欄 C欄資料自動乘上100  (閱讀 331 次)
btu
小學生
*
離線 離線

文章: 2


B欄 C欄資料自動乘上100
« 於: 2008-05-13, 11:29:27 »

請問我想如A欄以下有資料,B欄 C欄 D欄 E欄 的資料就自動乘上100,G欄的資料自動除以1000 請教怎樣寫VBA呢?
已記錄
oobird
凸槌的木工
論壇維護群
*
離線 離線

文章: 4287


Re: B欄 C欄資料自動乘上100
« 回覆文章 #1 於: 2008-05-13, 13:19:56 »

Sub Macro1()
[h1] = 100: [h1].Copy
Range([b1], [e1].End(xlDown)).PasteSpecial , 4
 [h1] = 1000: [h1].Copy
Range([g1], [g1].End(xlDown)).PasteSpecial , 5
 [h1] = ""
Application.CutCopyMode = False
End Sub
若你有欄標題,則改一下相關位置。
已記錄

結廬待慧君;為使大家少猜題,請在附件中詳細說明 要求 和 效果,解決問題效率高。
btu
小學生
*
離線 離線

文章: 2


Re: B欄 C欄資料自動乘上100
« 回覆文章 #2 於: 2008-05-13, 21:10:27 »

感謝oobird的程式指導
已記錄
頁: [1] 向上 列印 
« 上一篇主題 下一篇主題 »
跳到:  


本頁花了 0.097 秒, 以及 20 次的資料庫查詢.