こんにちは。
Excel2003でA1からB20までのセルに正と負の数字が混在しています。
負の数字 (-20などマイナス記号が入ったまま) を赤にしたいのです。
調べてマクロを組みましたが書き方がわからないところがあります
Sub Macro()
Dim r As Range
With Range("A1:B20")
For Each r In .Cells <-----ここの書き方
If .Cells < 0 Then <-----ここの書き方
With r.Font
.ColorIndex = 3
End With
End If
Next
End With
End Sub
どこを修正すれば良いでしょうか
おわかりの方お教えください。
ｅｘｃｅｌ２００７のＶＢＡの質問です。
１行目から文字入力がされている行までを範囲指定したいのですが、
For i = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
このように入力すると、数式が入力されている行まで指定されてしまいます。
あくまでも
「文字入力がされているところまで」を指定したい場合
どのようにＶＢＡを作成したらよいのでしょうか？
よろしくお願いします！
エクセルＶＢＡ２００３について質問です。
Sub aaa１()
Dim a As Variant
Debug.Print TypeName(a)
End Sub
を実行してイミディエイトウインドウで確認すると
Emptyが返ってきます。
Variantが返ってこない理由は何でしょうか？
また、変数の方の宣言をしない場合は
Variant型になるはずなのに
Sub aaa２()
Dim a
Debug.Print TypeName(a)
End Sub
を実行すると、同じくEmptyが返ってきます。
Variantが返らない理由を教えてください。よろしくお願いします。
エクセルを使ってCSVファイルのデータを参照して複数行にまたがる表に反映させたいのですがうまくいきません。
Ａ B C D E
１ あ い う え お
２ か き く け こ
上記のように１行で１件分のデータがCSVであります。
このデータを
A B C D E
１ あ う お
２ い え
３ か く こ
４ き け
上記のように参照させたいのです。
数件ならば１件１件を参照させれば表は完成するのですが、数千件あるのでできません。
１パターン作って、あとは連続フィルで出来れば助かります。
説明が難しく、わかりづらいかと思いますがお力をお貸しください。
よろしくお願いいたします。
Sub sheet1の複写()
j = 1
For i = ◯ To ◯
Sheets("sheet1").Copy After:=Sheets("sheet1")
On Error GoTo ERRO
ActiveSheet.Name = Sheets("sheet1").Range("◯" & i).Value & "-" & j
Next
Exit Sub
ERRO:
If Err.Number = 1004 Then
j = j + 1
End If
Resume
End Sub
上記のマクロは、以前の質問でシ－トに自動で末尾に-1.-2.-3・・・と付けるにはの質問でした。
今度は先頭に（A)と付けるにはどうしたらよいですか
お教えください。
エクセル2003です。
先日、マクロについて質問をさせていただきました。
常に右側の列と左側の列のデータを比較して、右側の列のデータが多ければ「↑」マークを、同じなら「―」マークを、少なければ「↓」マークを表示させたいのです。
最初にデータを入れる列はD列7行目から30行目まで。次はE列に同じようににデータ入力した後ににマクロを実行します。これをM列７行目から３０行目まで、列に新しいデータを入れるたびに毎回繰り返したいのです。 矢印マークは 常にN列に表示。
で、以下のようなマクロを教えていただきましたが、このマクロだと 比較がされる列が、絶えずD列と、新しく入力した列になってしまいます。
先ほども書きましたが、比較する列は、D列とE列 それが終わったらE列とF列 次はF列とG列 というように常に右側とその直ぐ左側の列の比較をしたいのです。
もう一度 お教えいただきたいのですが、よろしくお願いいたします。
回答いただいたマクロを下に入れておきます。
Sub test()
Dim i, j, k As Long
Dim vl1, vl2 As Variant
For i = 4 To 30
If WorksheetFunction.Count(Range(Cells(i, 4), Cells(i, 13))) > 1 Then
j = 4
Do Until Cells(i, j) <> ""
j = j + 1
Loop
vl1 = Cells(i, j)
For k = 4 To 13
If Cells(i, k) <> "" Then
vl2 = Cells(i, k)
End If
Next k
If vl1 > vl2 Then
Cells(i, 14) = "↓"
ElseIf vl1 = vl2 Then
Cells(i, 14) = "→"
Else
Cells(i, 14) = "↑"
End If
Else
Cells(i, 14) = ""
End If
Next i
End Sub
エクセルの処理の質問です。
２つの単語リストがあり、下記のように、B列とC列に入力してあります。
A列は、B列の単語リストの頻度です。
------------------
A列 B列 C列 D列
4 and and
3 be the
5 stay type
4 the zoo
------------------
やりたいことは、
上記、B列とC列で重複している単語を見つけて
その重複語の頻度数（A列）を合計して、D１のセルに入力したいと思っています。
上記の例の場合、D１には ８ が入ることになります。
このようなことは可能でしょうか。
やり方をご存知の方、教えていただけると大変たすかります。
よろしくお願いします。
