Excel VBA質問箱 IV

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

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


40541 / 76732 ←次へ | 前へ→

【41288】Re:動作速度について
回答  Hirofumi  - 06/8/3(木) 21:15 -

引用なし
パスワード
   もう1ヶ所

  Cells(co1 + 2, 17) = Me.Controls("label" & co1).Caption

此れに至っては、同じ値を400回代入している様ですね?

Testして居ないので、上手くいくか?ですが
以下で同じ動きをすると思います?


  Dim i As Long
  Dim lngRow As Long
  Dim lngColumn As Long
  Dim vntResult1(1 To 40, 1 To 10) As Variant
  Dim vntResult2(1 To 40, 1 To 1) As Variant
  
  For i = 1 To 400
    lngRow = (i - 1) \ 10 + 1
    lngColumn = (i - 1) Mod 10 + 1
    If Me.Controls("CheckBox" & i).Value Then
      vntResult1(lngRow, lngColumn) = "○"
    Else
      vntResult1(lngRow, lngColumn) = "×"
    End If
  Next i
  
  For i = 1 To 40
    vntResult2(i, 1) _
        = Me.Controls("Label" & i).Caption
  Next i
  
  With Worksheets(Mys)
    Select Case Me.Controls("combobox2").Value
      Case "4月"
        lngColumn = 0
      Case "5月"
        lngColumn = 12
      Case "6月"
        lngColumn = 24
    End Select
    .Cells(3, 1 + lngColumn) _
        .Resize(UBound(vntResult1, 1), _
            UBound(vntResult1, 2)).Value = vntResult1
    .Cells(3, 17 + lngColumn) _
        .Resize(UBound(vntResult2, 1)).Value = vntResult2
  End With
0 hits

【41276】動作速度について てっちゃん 06/8/3(木) 16:42 質問
【41279】Re:動作速度について neptune 06/8/3(木) 17:09 発言
【41280】Re:動作速度について Jaka 06/8/3(木) 17:15 発言
【41281】Re:動作速度について てっちゃん 06/8/3(木) 17:30 お礼
【41283】Re:動作速度について neptune 06/8/3(木) 19:17 発言
【41286】Re:動作速度について Hirofumi 06/8/3(木) 20:17 回答
【41288】Re:動作速度について Hirofumi 06/8/3(木) 21:15 回答
【41319】Re:動作速度について Hirofumi 06/8/4(金) 19:24 回答
【41328】Re:動作速度について てっちゃん 06/8/6(日) 8:57 発言
【41341】Re:動作速度について Hirofumi 06/8/6(日) 23:02 回答
【41377】Re:動作速度について てっちゃん 06/8/8(火) 7:59 お礼
【41298】Re:動作速度について Jaka 06/8/4(金) 9:15 発言
【41327】Re:動作速度について てっちゃん 06/8/6(日) 8:52 お礼

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