Windows 7 Pro SP-1 配下で Excel 2013 を使用しています。
更に、このマシンの Windows XP Mode 配下で Excel 2002 を使用しています。
さて、掲題の 式 =INFO("osversion") の戻り値ですが、
Excel 2002 上では Windows (32-bit) NT 5.01
Excel 2013 上では Windows (32-bit) NT 6.01
を呈します。
「NT 5.01」および「NT 6.01」はそれぞれ何を意味しているのか教えてください。
私は Windows 7 とか Windows XP が返ってくるものと思っていたものですから、戸惑っているのです。
空白行を削除するマクロについて質問です。
「Aが空白の場合」ではなく「A～Lセルすべてが空白の場合」に行を削除したいです。
下記のマクロでは、Aが空白の場合に行がすべて削除されてしまいます。
Aが空白でも、BやLに数字や文字があれば、その行は残るようにしたいです。
このマクロをどう変化させれば、うまく作業が実行されますか？
マクロは初心者です。よろしくお願いいたします。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・
sub macro1()
dim s as long
dim e as long
dim r as long
s = 5
e = range("A65536").end(xlup).row
for r = e to s step -1
if application.trim(cells(r, "A")) = "" then
cells(r, "A").entirerow.delete shift:=xlshiftup
end if
next r
end sub
下記のマクロでは、全部同じ式（下記）が入ってしまいます。
=IF(LEFT('H2',7)="愛知県名古屋市",名古屋市,IF(LEFT('H2',6)="愛知県豊田市","豊田市",IF(LEFT('H2',6)="愛知県豊橋市","豊橋市","愛知県")))
H2をH3、H4と数式を入れる同じ行を参照するようにしたいのですが
何処を直せばいいのでしょうか？
よろしくお願いいたします。
Sub 愛知県()
Dim i As Integer, t As Integer
t = Sheets("全愛知県").Range("F1").End(xlDown).Row
For i = 2 To t
Cells(i, 1).FormulaR1C1 = _
"=IF(LEFT(H2,7)=""愛知県名古屋市"",名古屋市,IF(LEFT(H2,6)=""愛知県豊田市"",""豊田市"",IF(LEFT(H2,6)=""愛知県豊橋市"",""豊橋市"",""愛知県"")))"
Next i
End Sub
下記のマクロでは、全部同じ式（下記）が入ってしまいます。
=IF(LEFT('H2',7)="愛知県名古屋市",名古屋市,IF(LEFT('H2',6)="愛知県豊田市","豊田市",IF(LEFT('H2',6)="愛知県豊橋市","豊橋市","愛知県")))
H2をH3、H4と数式を入れる同じ行を参照するようにしたいのですが
何処を直せばいいのでしょうか？
よろしくお願いいたします。
Sub 愛知県()
Dim i As Integer, t As Integer
t = Sheets("全愛知県").Range("F1").End(xlDown).Row
For i = 2 To t
Cells(i, 1).FormulaR1C1 = _
"=IF(LEFT(H2,7)=""愛知県名古屋市"",名古屋市,IF(LEFT(H2,6)=""愛知県豊田市"",""豊田市"",IF(LEFT(H2,6)=""愛知県豊橋市"",""豊橋市"",""愛知県"")))"
Next i
End Sub
