Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13466 / 13646 ツリー ←次へ | 前へ→

【5284】式の形について VBAman 03/5/2(金) 10:20 質問
【5285】Re:式の形について Jaka 03/5/2(金) 10:36 回答
【5286】Re:式の形について VBAman 03/5/2(金) 10:48 発言
【5287】すみませんでした。 Jaka 03/5/2(金) 11:07 発言
【5288】このようにしたいです。 VBAman 03/5/2(金) 11:28 発言
【5291】Re:このようにしたいです。 Jaka 03/5/2(金) 14:33 回答

【5284】式の形について
質問  VBAman  - 03/5/2(金) 10:20 -

引用なし
パスワード
   Worksheets(s_sheetName).Cells(ave, 19).Value = dec2hex((hex2dec(Cells(ave, 18).Value)) / (cnt), 4)
の形の式で
cnt = 2 のときは
Worksheets(s_sheetName).Cells(ave, 19).Value = dec2hex((hex2dec(Cells(ave, 18).Value) + hex2dec(Cells(ave + AVE_CNT, 18).Value)) / (cnt), 4)
のように
(hex2dec(Cells(ave, 18).Value))
この形の式をループのようにまわしてマクロを書いていく方法って
ありますでしょうか?

【5285】Re:式の形について
回答  Jaka  - 03/5/2(金) 10:36 -

引用なし
パスワード
   こんにちは。
計算式は全然わかりません。
何かの参考になれば良いけど...。

Sub nnn()
  mu = 2
  Range("A1").Value = sai(10, mu) + sai(5, mu)
  mu = 4
  Range("A2").Value = sai(10, mu) + sai(5, mu)
End Sub

Function sai(he1, jo)
  sai = he1 * 2 / jo
End Function

【5286】Re:式の形について
発言  VBAman  - 03/5/2(金) 10:48 -

引用なし
パスワード
   Jakaさん

式の意味がわからないんですけど。。。
he1, joはどういう意味があるのですか?

>Sub nnn()
>  mu = 2
>  Range("A1").Value = sai(10, mu) + sai(5, mu)
>  mu = 4
>  Range("A2").Value = sai(10, mu) + sai(5, mu)
>End Sub
>
>Function sai(he1, jo)
>  sai = he1 * 2 / jo
>End Function

【5287】すみませんでした。
発言  Jaka  - 03/5/2(金) 11:07 -

引用なし
パスワード
   >ループのようにまわしてマクロを書いていく方法って

すみません。
全くトンチンカンな事を書いてました。
このマクロを書くってどのような意味になるのでしょうか?
私が深く考えすぎかと思いますが、いろんな意味に取れるので...。
単純にキー入力するのがいやだって事でしょうか?
その辺も書いていたほうが、レスがつきやすいと思います。

【5288】このようにしたいです。
発言  VBAman  - 03/5/2(金) 11:28 -

引用なし
パスワード
   考えていることは
ある数値をカウントしているcntというのがあるのですが、
この数と同じ分、同じ式を増やして計算したいんです。
例えば、
cnt = 1
A = (式1)
cnt = 2
A = (式1) + (式1)
といったようにです。

【5291】Re:このようにしたいです。
回答  Jaka  - 03/5/2(金) 14:33 -

引用なし
パスワード
   関数によって、使えるかどうかは良く輪かな無いけど。
ちなみにエクセル関数を使用。
他はわかりません。
では。

Range("A1").Value = 2: Range("B1").Value = 5
Ms = Range("A1").Address & "+" & Range("B1").Address
For cnt = 1 To 5
  If cnt = 1 Then
   shiki = Ms
  Else
   shiki = shiki & "+" & Ms
  End If
Next
Range("C1").Value = Application.Evaluate(shiki)

13466 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free