2の乗数のテストパターンを作成したいのですが、どのように作成すればいいのか
いまいちわからないので皆さん教えてください。御願いします。
例として2の3乗のパターンを作成したい場合
1パターン目
a=true
b=true
c=true
2パターン目
a=true
b=false
c=false
3パターン目
a=false
b=true
c=false
4パターン目
a=false
b=false
c=true
5パターン目
a=true
b=false
c=true
6パターン目
a=true
b=true
c=false
7パターン目
a=false
b=true
c=true
8パターン目
a=false
b=false
c=false
といった具合に作りたいのですが、for文やif文をどういう具合に使えばいいか
いまいちピンと来ないので、どなたかヒントでもいいので2の乗数のテストパターンの
作成の仕方を教えてくださいよろしく御願いいたいます
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
No.2です!
たびたびごめんなさい。
前回のコードでは「乗数」が多い場合は処理時間がかかりすぎますので、
一部訂正してください。
>i = Cells(Rows.Count, j).End(xlUp).Row
>Do Until Cells(Rows.Count, j).End(xlUp).Offset(1, -1) = ""
の2行を入れ替え、
>Do Until Cells(Rows.Count, j).End(xlUp).Offset(1, -1) = ""
>i = Cells(Rows.Count, j).End(xlUp).Row
の順にしてください。
これで少しは時間短縮が出来ると思います。
※ 理論上ではExcel2003以前の場合は「2の16乗」(65536行まで)
Excel2007以降のバージョンでは「2の20乗」(1048576行まで)表示可能なのですが、
コード自体がデータの最終行を行の上方向に向かって検索していますので、
実際は上記「乗数」より一つ少ない数でないと途中でマクロが止まってしまいます。
お役に立ちますかね?m(_ _)m
No.3
- 回答日時:
ちょっとトリッキーですがこんな方法もあります。
Sub test()
n = 3 '乗数
Cells.ClearContents
Range(Cells(1, 1), Cells(1, n)) = True
For i = 2 To 2 ^ n
F = True
For j = 1 To n
Cells(i, j) = F Xor Cells(i - 1, j)
If Not Cells(i, j) Then F = False
Next
Next
End Sub
No.2
- 回答日時:
こんばんは!
外していたらごめんなさい。
Excelだとして・・・
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です。)
Sub test() 'この行から
Dim i, j, k, L As Long
k = Application.InputBox("乗数を入力")
Application.ScreenUpdating = False
Cells.ClearContents
Range(Cells(1, 1), Cells((2 ^ k) / 2, 1)) = "true"
Range(Cells((2 ^ k) / 2 + 1, 1), Cells(2 ^ k, 1)) = "false"
For j = 2 To k
For i = 1 To Cells(Rows.Count, j - 1).End(xlUp).Row Step 2
L = L + 1
Cells(L, j) = Cells(i, j - 1)
Next i
L = 0
Next j
For j = 2 To k
i = Cells(Rows.Count, j).End(xlUp).Row
Do Until Cells(Rows.Count, j).End(xlUp).Offset(1, -1) = ""
Range(Cells(1, j), Cells(i, j)).Copy Destination:= _
Cells(Rows.Count, j).End(xlUp).Offset(1)
Loop
Next j
Application.ScreenUpdating = True
End Sub 'この行まで
こんな感じではどうでしょうか?m(_ _)m
No.1
- 回答日時:
a,b,cとか何をさしているのかわからない。
テストパターンが知りたかったら
実装方式を乗っけてください。
実装方式によってテストパターンかわるんじゃないですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- アニメ アニメ製作が形成してきたパターンや方式と今後について 2 2023/08/11 03:49
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- 数学 『◯と●の帰納法』 2 2023/04/19 20:57
- JavaScript 正規表現について質問です。条件に合う場合はtrueを返したい 3 2022/10/06 23:02
- Excel(エクセル) 中身がFALSEなのにTRUEになる 2 2022/11/25 09:22
- レシピ・食事 鶏ハムを使った写真以外のツマミや料理。 10 2022/08/18 15:06
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2023/01/13 10:42
- 伝統文化・伝統行事 日本の伝統文様の和柄ってどんなものなんでしょうか。現在和柄の調査をしているのですが、和柄の明確な定義 1 2022/04/04 02:51
- その他(IT・Webサービス) パスワードの組み合わせについて 2 2023/07/05 00:01
- 数学 数的処理の勉強方法について 最初数的処理の勉強を始めた学生です。 パターン暗記というものが良いらしい 3 2023/04/03 11:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
cellsで特定の離れた範囲を選択...
-
ファイル名を今日の日付、時刻...
-
Powerpointでランダムな数字の...
-
エクセルでツールバーに「縮小...
-
VBA[Private Sub]のコードをシ...
-
エクセルで「ODBC Microsoft Ac...
-
ピボットグラフの書式の固定に...
-
エクセル2007 テキストボ...
-
WORD VBA 表の複数行選択を教え...
-
マクロを使いダイレクトメール...
-
VBAを使ってエクセルシート...
-
エクセルVBA 図形に設定された...
-
VBAで棒グラフの色を変えたい
-
エクセルマクロのグラフ操作
-
どのドキュメントは暗号化され...
-
ユーザーフォームを「Esc」キー...
-
エクセルのマクロでSelection.S...
-
Pictures.Insertメソッド⇒Shape...
-
ACCESS VBAからWordのテンプレ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
cellsで特定の離れた範囲を選択...
-
ファイル名を今日の日付、時刻...
-
Powerpointでランダムな数字の...
-
VBA[Private Sub]のコードをシ...
-
エクセルシートをまとめて印刷...
-
エクセル2007 テキストボ...
-
別ブックからユーザーフォーム...
-
ピボットグラフの書式の固定に...
-
VBAを使ってエクセルシート...
-
エクセルのマクロでSelection.S...
-
最初の1回のみにボタンクリッ...
-
VBAに詳しい方教えてください。
-
VBAをVBに変換する方法
-
エクセルワークシート上に印刷...
-
Pictures.Insertメソッド⇒Shape...
-
【ExcelVBA】クエリの更新とピ...
-
エクセルVBAで、画像の倍率を知...
-
エクセル vba クリック~離し...
おすすめ情報