●EXCEL・VBAの教えてスレ Part2●

●EXCEL・VBAの教えて ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

121:デフォルトの名無しさん
 07/01/31 00:09:06 
>>120 
Sub abc() 
    Dim str As String 
    str = test 
    Worksheets("Sheet2").Range("A1").Value = str 
End Sub 
 
Function test() As String 
    test = "返り血" 
End Function 
 
こういうこと？

122:デフォルトの名無しさん
 07/01/31 00:37:35 
ありがとうございます。まさかこんな早くに答えていただけるとは思いませんでしたので驚きました。 
よろしければもう一つだけお聞きしたいのですが、任意のセルをそのつど入力し 
そのセルに表示させたい場合はどうしたらよいでしょう？

123:デフォルトの名無しさん
 07/01/31 00:56:22 
>>122 
よくわからんのだけども、 
任意のセル（入力するセル）の指定方法： 
①クリック→任意のWorkSheetのマクロを開いて、マクロ書くスペースの左上にある 
ちっちゃいコンボボックス的なやつの値を[WorkSheet]に設定、そのとなりのボックスの値を 
[SelectionChange]に設定（ディフォルト） 
したら、 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
 
End Sub 
ができるから、ここに 
Target.value = "返り血" 
Targetは引数ね。ちなみにThisWorkBookのまくろで同じの作るとすべてのシートに適応される。 
②セルの値→ 
上と同じ感じで、左[WorkSheet]右[Change]に設定 
Private Sub Worksheet_Change(ByVal Target As Range) 
 
End Sub 
ができるからここに、 
If Target.Row = 1 And Target.Column = 1 Then 
        Range(Target.Value).Value = "返り血" 
End If 
A1のセルの値にB2とか入れるとそのセルに返り血って入る 
弱点はセル以外の値を入れるとエラーになる。克服はできるはず、考えないけど。 
③ユーザーフォーム→ 
ぐぐってちょ。 
 
こんなもんで。

次ページ