Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
45805 / 76735 ←次へ　｜　前へ→
【35915】Re:任意に数字を入れて結果を求めるＶＢ...
発言  やっちん  - 06/3/15(水) 22:15 -
引用なし
パスワード
   ▼うさちゃん さん：
こんばんは。
こんなかんじでしょうか。
For i = 0 To 19
　　 For j = 0 To 19
　　　　　For k = 0 To 19
　　　　　　Cells(1, 1).Value = i + 1
　　　　　　Cells(1, 2).Value = j + 1
　　　　　　Cells(1, 3).Value = k + 1
　　　　　　Cells(i * 400 + j * 20 + k + 1 , 12).Value = Cells(1, 5).Value
　　　　　　Cells(i * 400 + j * 20 + k + 1 , 13).Value = Cells(1, 6).Value
　　　　　Next k
　　 Next j
next i
簡単な計算であればセルの値のセットを繰り返すより、
計算もVBAにさせた方が早いと思いますよ。
0 hits
▼ 【35881】任意に数字を入れて結果を求めるＶＢＡを教えてください うさちゃん 06/3/15(水) 12:11 質問
【35884】Re:任意に数字を入れて結果を求めるＶＢＡ... ちくたく 06/3/15(水) 13:58 回答
【35888】Re:任意に数字を入れて結果を求めるＶＢ... うさちゃん 06/3/15(水) 14:57 質問
【35893】Re:任意に数字を入れて結果を求めるＶＢ... ちくたく 06/3/15(水) 16:02 回答
【35895】Re:任意に数字を入れて結果を求めるＶＢ... うさちゃん 06/3/15(水) 16:37 質問
【35907】Re:任意に数字を入れて結果を求めるＶＢ... ちくたく 06/3/15(水) 18:35 発言
【35914】Re:任意に数字を入れて結果を求めるＶＢ... うさちゃん 06/3/15(水) 21:35 質問
【35915】Re:任意に数字を入れて結果を求めるＶＢ... やっちん 06/3/15(水) 22:15 発言≪
【35921】Re:任意に数字を入れて結果を求めるＶＢ... やっちん 06/3/16(木) 0:39 発言
【35916】Re:任意に数字を入れて結果を求めるＶＢ... ichinose 06/3/15(水) 22:17 発言
【35920】皆さん、どうもありがとうございました。 うさちゃん 06/3/16(木) 0:27 お礼
【35928】パラメータがバラバラの場合を教えてくだ... うさちゃん 06/3/16(木) 9:20 質問
【35964】Re:パラメータがバラバラの場合を教えてく... ichinose 06/3/16(木) 22:05 発言
【35979】Re:パラメータがバラバラの場合を教えてく... ちくたく 06/3/16(木) 23:48 発言
【35983】Re:パラメータがバラバラの場合を教えて... うさちゃん 06/3/17(金) 1:52 お礼
【35982】Re:パラメータがバラバラの場合を教えて... うさちゃん 06/3/17(金) 1:49 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
45805 / 76735 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free