Excel マクロ コードは難しくありません。専門家は手を挙げてください。

専門家にとって Excel マクロ コードをプログラムするのは難しくありません

プライベートサブテスト()

Dim result As String '0 から 9 までの 10 個の数字を含む乱数

ランダム値を整数として調整

Dim randomData(10) を整数として

ブール値としてフラグを暗くする

For i = 0 ～ 9

フラグ = True

フラグ = True の場合

ランダム化

randomValue = Int((9 - 0 1) * Rnd 0)

If i = 0 または search(randomValue, randomData, i) = False then

result = 結果 & CStr(randomValue)

ランダムデータ(i) = ランダム値

フラグ = False

終了の場合

水

＃＃＃次＃＃＃

エンドサブ

プライベート関数検索(ByVal key As Integer, ByRef data() As Integer, ByVal length As Integer) As Boolean

長さ = 0 の場合、

検索 = True

終了関数

終了の場合

検索 = 偽

For i = 0 長さ - 1

If data(i) = key then

検索 = True

終了関数

終了の場合

＃＃＃次＃＃＃

関数の終了

これを書いた後は乱数を生成するためのボタンをクリックした場合に入れます

EXCEL マクロ コードについて教えてください。ありがとうございます。

ディクショナリ オブジェクトを使用すると、はるかに高速になります。コードは次のとおりです: (十分に高速ではないと思われる場合は、シート 3 の列 A をすべて配列に読み込んで、ワークシートを頻繁に読み取る回数を減らし、高速化します)たくさん）＃＃＃

サブピックの重複()

Dim Sht2Dic、CongFuArr()

Dim N As Long

Dim Rng2 を範囲として、Rng3 を範囲として

Set Sht2Dic = CreateObject("Scripting.Dictionary")

Sheet2.Range(＂A1:A＂ & Sheet2.usedRange.Rows.Count)の各 Rng2

Sht2Dic(Rng2.Value) = Sht2Dic(Rng2.Value) 1

＃＃＃次＃＃＃

Sheet3.Range(＂A1:A＂ & Sheet3.usedRange.Rows.Count)の各 Rng3

Sht2Dic.exists(Rng3.Value) の場合

N = N 1

ReDim 保存 CongFuArr(1 から N)

CongFuArr(N) = Rng3.Value

終了の場合

＃＃＃次＃＃＃

Sheet1.Columns(＂＂) = ＂＂

Sheet1.Range("A1").Resize(N, 1) = WorksheetFunction.Transpose(CongFuArr)

エンドサブ

Excel のテーブルでマクロを使用する方法

「開発ツール -- マクロの記録」をクリックし、意味のあるマクロ名を設定し、マクロを使用するためのショートカット キーを設定します。必要に応じて、マクロの詳細な説明を入力して「OK」をクリックします

これ以降、操作のすべてのステップがニーズを満たす必要があります。Excel が操作ステップの記録を開始しましたが、ツールバー上のマクロの記録の位置が変更されて記録が停止されていることがわかります。

次に、例に従って、すべてのテーブルを選択し、フォントを斜体に設定し、フォント サイズをサイズ 16 に設定し、背景色をターコイズに設定します。図に示すように、各ステップは正しく設定されています。

手順が完了したら、 をクリックして記録を停止すると、表形式を一括設定するマクロが記録されます。マクロをクリックすると、先ほど記録したマクロが保存されていることがわかります。

他のテーブルに同じ形式を設定する必要がある場合、図に示すように、マクロを呼び出す前にこのマクロを呼び出すだけで済みます。

書式設定したいテーブルを選択し、[マクロ] をクリックすると、マクロ リスト ボックスが表示され、記録したマクロを選択して、[実行] をクリックすると、テーブルの書式が目的の書式になっていることがわかります。

以上がExcel マクロ コードは難しくありません。専門家は手を挙げてください。の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。