Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13465 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 = (式１)
cnt = 2
A = (式１) + (式１)
といったようにです。
【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)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13465 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free