C# と VB.NET の質問掲示板

■No54845 (おん さん) に返信

そのままVBAに直したものです。変数の宣言は Dim a as <型>のように書きます。
printはなんだか分からないのでそのままです。

A = Date '今日の日付（以下$付きの文字は変数です）
if Range("E1") = "終了" then
    flag = 1
else
    flag = 0
end if

if flag = 0 then
    if Range("C1") = "異常事態" then
        B = "責任者"
        E = "登録日" '文字列を代入
        F = Range("D1")
        C = Range("F1")
        D = Range("G1")
        G = Range("A1")
    elseif Instr(Range("H1"), "緊急") >0 then
        B = "取締役"
        E = "期日"
        F = Range("B1")
        if Range("B1") < A then
            C = "オーバー"
        elseif Range("B1") = A then
            C = "今日までに対応"
        elseif Range("B1") > A then
            C = Range("F1")
        end if
        D = Range("H1")
        G = Range("A1")
    else
        B = "その他役員"
        E = "期日"
        F = Range("B1")
        if Range("B1") < A then
            C = "オーバー"
        elseif Range("B1") = A then
            C = "今日までに対応"
        elseif Range("B1") > A then
            C = Range("F1")
        end if
        D = Range("H1")
        G = Range("A1")
    end if
end if

if flag = 1 then print "A1は終了"

print A    '日付;
print B    '担当;
print C    '状況;
print D    '件名;
print E    '"登録日"または"期日"
print F    '期日
print G    '整理番号

度々失礼いたします。
再度質問させてください。

print A    '日付;
print B    '担当;
print C    '状況;
print D    '件名;
print E    '"登録日"または"期日"
print F    '期日
print G    '整理番号

として、ご回答を頂きました。
ここでのprintとは、テキストエディタ（メモ帳、TeraPadなど）に
データを出力することを考えております。

つまり、エクセル（本当はA1セル〜H100セルくらいまで）のデータに、
VBAのプログラムで操作をして、結果のA,B,C...Gの値を、
メモ帳に1:A,2:B,3:C,...7:G,として、出力したいと考えています。
（表示形式は、途中で日本語が入ったりします）

このような事は可能でしょうか？
恐れ入りますが宜しくお願い致します。

■No54850 (おん さん) に返信
> として、ご回答を頂きました。
> ここでのprintとは、テキストエディタ（メモ帳、TeraPadなど）に
> データを出力することを考えております。
> 
> つまり、エクセル（本当はA1セル〜H100セルくらいまで）のデータに、
> VBAのプログラムで操作をして、結果のA,B,C...Gの値を、
> メモ帳に1:A,2:B,3:C,...7:G,として、出力したいと考えています。
> （表示形式は、途中で日本語が入ったりします）

VBAでのファイル書き出し処理

    Open "C:\Data\a.txt" For Output As #1
    Print #1, "改行しない";
    Print #1, "改行する"
    Close #1