[[20150522120846]]　『ユーザーフォーム　テキストボックス　セル値入力』（まゆみ）　ページの最後に飛ぶ

『ユーザーフォーム　テキストボックス　セル値入力』（まゆみ）

いつもお世話になっております
教えていただけたら

大変お手数かけて申し訳ございませんが
よろしくお願いいたします

下記の動作はどの様に組めばいいのでしょうか

UserForm1　TextBox5の値をsheet"work"のセルに返したいです
動作条件は下記のようになります

OptionButton１選択時Ｂ列最終
OptionButton２選択時Ｃ列最終
OptionButton３選択時Ｄ列最終

CommandButton１を押した時　　そのまま転記
CommandButton２を押した時　　マイナス値で転記

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Private Sub CommandButton2_Click()
    Dim iw As Long

    If OptionButton1.Value = True Then
        iw = 1
    ElseIf OptionButton2.Value = True Then
        iw = 2
    Else
        iw = 3
    End If

    With Sheets("work")
        .Cells(.Rows.Count, iw + 1).End(xlUp).Offset(1, 0).Value = -Val(TextBox5.Text)
    End With
 End Sub
（???） 2015/05/22(金) 12:31

???さま

ありがとうございます

 -Val(TextBox5.Text)
マイナスつければ　　よろしいのですね

ありがとうございます
（まゆみ） 2015/05/22(金) 13:37

コメント返信：

[ 一覧(最新更新順) ]

[[20150522120846]] 『ユーザーフォーム テキストボックス セル値入力』（まゆみ） ページの最後に飛ぶ

[[20150522120846]]　『ユーザーフォーム　テキストボックス　セル値入力』（まゆみ）　ページの最後に飛ぶ