EXCEL VBAを使用してデータを自動的に入力します。

EXCEL VBA 入力内容

サブS()

a = [o2].Text

b = [o7].Text

na = レン(a)

nb = レン(b)

ReDim arr(1 から na)

ReDim brr(1 から nb)

For i = 1 To na

arr(i) = Val(Mid(a, i, 1))

＃＃＃次＃＃＃

For i = 1 To nb

brr(i) = Val(Mid(b, i, 1))

＃＃＃次＃＃＃

For i = 1 ～ 9

a = "＂"

b = "＂"

For j = 1 to na

a = a & (arr(j) i) Mod 10

＃＃＃次＃＃＃

j = 1 から nb

まで

b = b & (brr(j) i) Mod 10

＃＃＃次＃＃＃

[o2].Offset(0, i) = a

[o7].Offset(0, i) = b

＃＃＃次＃＃＃

エンドサブ

VBA 自動入力に関する質問

c 列のデータを含む最後の行を検索するコードは次のとおりです。

i=Cells(Rows.Count, 3).End(xlUp).Row

Selection.AutoFill Destination:=Range(＂D5:D＂ & i &＂＂)

完全なコードは次のとおりです:

サブ jj()

範囲(＂D5＂).選択

ActiveCell.FormulaR1C1 = "=IF(RC[-2]=RC[-1],""y",""0"")"

i = Cells(Rows.Count, 3).End(xlUp).Row

Selection.AutoFill Destination:=Range("D5:D" & i & "＂")

エンドサブ

VBA コードを使用して EXCEL の一部のセルを小さいセルから大きいセルに並べ替える方法

スクリーンショットが不完全なため、データ領域は A1:F9、塗りつぶし領域は H1:M9 であると仮定します。

コードは以下のように表示されます:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim arr1(1 ～ 54)、arr2(1 ～ 54)

x、y、z を整数として数値化する

寸法b、c

バリアントとしてディムする

z = 1

#xx = 1

y = 1

c = 1

x = 1 ～ 9の場合

y = 1 ～ 6の場合

arr1(z) = セル(x, y)

z = z 1

次のy

次の x

z = z - 1

z = 1 ～ 54

の場合

a = arr1(z)

b = z

x = 1 ～ 54の場合

If a

a = arr1(x)

b = x

終了の場合

次の x

arr2(c) = a

c = c 1

arr1(b) = 0

次へ z

c = c - 1

x = 1 ～ 9の場合

y = 8 ～ 13の場合

セル(x, y) = arr2(c)

c = c - 1

次のy

次の x

エンドサブ

操作結果

これが役に立った場合は、受け入れてください、ありがとうございます^_^

Excel VBAでセルを埋める

ホスト: こんにちは、あなたの質問には前提条件があります:

Excel のバージョンがバージョン 2003 の場合、システムによってプリセットされている 56 色のみを使用できます。 VBA コードを使用して実装された他の塗りつぶしの色は、これらの 56 色に最も近い色に変換されます。

Excel のバージョンが 2007 以降の場合、セルの塗りつぶしの色にほとんど制限がありません。セルの塗りつぶしコマンドを使用してカスタム カラーの塗りつぶしを完全に実装できます。VBA に頼らずに、RGB および HSL モードをサポートします。

VBA を使用する場合、コードは次のとおりです:

Sub test() 'セル A1 を赤、RGB (赤、緑、青) で塗りつぶします。赤、緑、青の値の範囲は 0 ～ 255 です。異なる値を設定すると、異なる色を取得できます。 Range(＂A1＂).Interior.Color = RGB(255, 0, 0) '赤で塗りつぶします '塗りつぶしの色を削除したい場合は、この文を使用してください Range(＂A1＂).Interior.Pattern = xlnoeEnd Sub

以上がEXCEL VBAを使用してデータを自動的に入力します。の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。