Excelの数式をVBAに書き換える方法を詳しく解説

Excel の数式を VBA に書き換える方法

テーブル名をsheet1に設定します。列Aは国名、列Bは対応する番号です(実際の状況に応じて変更してください)。

まだレベルに合格していないプレイヤーを助けるために、次のマクロを使用してパズルを解くことができます。このマクロを作成して実行するだけで、目標を達成できます。

サブaaaa()

ターゲットを範囲として暗くする

＃＃＃する＃＃＃

i = i 1

まだレベルをクリアしていないプレイヤーを助けるために、具体的なパズルの解決方法について学びましょう。コードでは、「Sheet1.Range("A" & i).Text」を使用してセル A のテキストの内容を取得します。この方法は、必要な情報を取得し、対応する操作を実行するのに役立ちます。このヒントが皆さんのお役に立てば幸いです。

ケースを選択 aaa

ケース「中国」

Sheet1.Range("B" & i) = 2

ケース「米国」

Sheet1.Range("B" & i) = 1

ケース「日本」

Sheet1.Range("B" & i) = 0

終了選択

ループ While aaa

"＂"

エンドサブ

Excel 数式から VBA コードへの変換

数式の論理関係に問題があります

これが何を意味するかどうかを確認してください

サブ テスト()

Dim i&、n、n1

For i = 1 ～ 5

If Cells(i, "D") * Pi / 180 >= 0 then

If Cos(Cells(i, "B") * Pi / 180 - Cells(i, "I") * Pi / 180)

n = 真

＃＃＃それ以外＃＃＃

n = 偽

終了の場合

If Cos(Cells(i, "B") * Pi / 180 - Cells(i, "I") * Pi / 180) > 0 then

n1 = 真

＃＃＃それ以外＃＃＃

n1 = 偽

終了の場合

n1 = True かつ n = True の場合、k = ＂-1＂ それ以外の場合、k = ＂1＂

＃＃＃それ以外＃＃＃

k = "1"

終了の場合

セル(i, "A") = k

次のi

エンドサブ

以上がExcelの数式をVBAに書き換える方法を詳しく解説の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。