Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
"VBA"4 件の検索結果
"VBA" 一致するキーワードは見つかりませんでした。
全般
質問者が納得１つ目の最後の文字がBの場合
Sub Macro1()
Dim I As Long '変数を定義しただけです
For I = 1 To 500 '1～500行まで繰り返す
If Right(Cells(I, 1).Value, 1) = "B" Then 'A列のI行の値の最後の1文字が"B"ならば以下を実行、違えば次の行へ移動する
Range(Cells(I, "A"), Cells(I, "Z")).Cut '対象の行のA～...
5010日前view17
全般
質問者が納得> A1からA500までに～
> A510（510行目）へ貼り付け、
> 400行目を削除する
文字を含むデータと含まないデータの間に
空白行を９行挿入し、全体を５０９行とする、
と想定します。
（違う場合は適宜変更して下さい）
-------------------------------------------
作業列を２列挿入します（例えばＢ列・Ｃ列）
Ｂ列には１から順に５００まで入力（フィル）
C1
=IF(ISERR(MID(A1,9,1)*1),1,0)
C500...
5012日前view20
全般
質問者が納得通常、VBAでは条件付き書式なんて使いません。
If…Then…Elseステートメントを使って条件に合っているかどうかを判断し色付けを行います。さらに、doステートメントやforステートメントを使ってセル範囲に繰り返します。
例えば、A2:A500のセル範囲に「*」が入力されていたら灰色に塗りつぶし、空欄ならば黄色に塗りつぶすには下のようなコードになるでしょう。
For i = 2 To 500
If Cells(i, "B") = "*" Then
Cells...
5373日前view19
全般
質問者が納得こんにちは
『B列』のセル内容が変わったら
から
『A列』のセル内容が変わったら
に変わっていますが・・・
A列を入力⇒B列を入力したら
A列のデータから『VLOOKUP関数』で『帳簿在庫』シートから
『C列』にデータを表示させ、D列に『C列』から『B列』をマイナスした数値を表示・・・かな？
対象シートのシートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Targe...
5408日前view18
- 1
