Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11728 / 76734

←次へ　｜　前へ→


	【70538】Re:現在のコード

Hirofumi - 11/11/26(土) 20:33 -


	引用なし

	パスワード

ごめん
以下の★印を追加変更して下さい

　　　　　　End If
　　　　　　'★1比較するKeyがコントロールのCaptionと同じなら
　　　　　　'Captionから配列に移します
　　　　　　vntKeys(1, lngCount) = Controls("CheckBox" & i).Caption
　　　　　　'★2比較するKeyをコントロールのTagから配列に移します
'　　　　　　vntKeys(1, lngCount) = Controls("CheckBox" & i).Tag
　　　　End If
　　Next i
　　ReDim Preserve vntKeys(1 To 2, 1 To lngCount) '★追加

　　　・
　　　・
　　'取得した種別のカウントをTextBoxに転記
'　　For i = 1 To clngText
　　For i = 1 To UBound(vntKeys, 2) '★変更
　　　　Controls("TextBox" & i).Value _
　　　　　　　　= vntKeys(1, i) & " = " & vntKeys(2, i)
　　Next i

9 hits

▼

【70530】データを検索したり行削除したりしたい かさねるくん 11/11/26(土) 11:07