標題: [發問] VBA 程式 [打印本頁]

---

作者: 8960614123    時間: 2016-1-13 16:44     標題: VBA 程式

目前想寫一段小程式，其概念如下
1.到資料區抓取變數X(C7~C12的值)
2.把資料區的C7的值帶入計算區的方程式Z=2X+5
3.方程式Z=2X+5的結果用複製貼上的方式，輸入再結果區
4.把資料區的C8的值帶入計算區的方程式Z=2X+5


一直無限迴圈到沒有值

大致上的格式如附件
[attach]23102[/attach]

有大大可以幫忙寫嗎?
謝謝

---

作者: GBKEE    時間: 2016-1-14 20:40

回復 1# 8960614123


試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xFormula As String, i As Integer, C As Integer
   
4.     xFormula = Sheets("計算區").Range("D8").FormulaR1C1 '計算公式
   
5.     i = 7
   
6.     Do While Sheets("資料區").Range("C" & i) <> ""    '迴圈: While(直到條件不成立) 資料區不是空格
   
7.         
   
8.         With Sheets("結果區").Range("C6").Offset(C)
   
9.             .Cells = Sheets("資料區").Range("C" & i) '寫下資料
   
10.             .Cells(1, 2) = xFormula                  '寫下公式
    
11.             .Cells(1, 2).Value = .Cells(1, 2).Value  '公式轉為值
    
12.         End With
    
13.         C = C + 3   '每一筆的結果空兩隔
    
14.         i = i + 1   '下一筆資料
    
15.     Loop
    
16. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)