麻辣家族討論版版 » Excel程式區 » VBA 程式

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

[發問] VBA 程式

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: WIN7
軟體版本: X64
閱讀權限: 10
註冊時間: 2015-12-21
最後登錄: 2016-1-28

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-1-13 16:44 | 只看該作者

[發問] VBA 程式

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

一直無限迴圈到沒有值

大致上的格式如附件

vba test.zip (8.68 KB)

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

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2016-1-14 20:40 | 只看該作者

回復 1# 8960614123

試試看

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 閒人無樂趣，忙人無是非。

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