Uchidas | News | Family | Yasuo | Michiko | Miho | Yuuta | Ai | あそぼーど

VBAワールドは、Excel VBAおよびVBAに関する情報交換や会議を行うための専用ボード（掲示板）です。
ご利用案内はこちらです。書き込みはここです。気軽に書き込んでください!!

過去の掲示 1997年 1998年 1999年 2000年 最新

ちゃこさん、こんにちは。
こんな方法はどうでしょうか？

Dim filename As String

Private Sub Form_Load()
    Forms!テーブル1!コンボ1.RowSourceType = "Table/Query"
    Forms!テーブル1!コンボ1.RowSource = "テーブル2"
End Sub

Private Sub コンボ1_Change()
    Dim xlsApp As Object
    
    filename = コンボ1.Text

    Set xlsApp = CreateObject("Excel.Application")
    xlsApp.Visible = True

    With xlsApp
        .Workbooks.Open filename:="D:\uchida\VBA\" + filename
    End With
End Sub

璃江さん、こんにちは。
基本的にはマクロ記録でできます。
http://www.uchidas.com/yasuo/vbaseminar/vbaseminar.html
自分で試して見てください。
こんな方法はどうでしょうか？

Sub Macro1()
    Workbooks.Open FileName:="D:\uchida\VBA\sheetcopy_b.xls"
    Windows("sheetcopy_a.xls").Activate
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy After:=Workbooks("sheetcopy_b.xls").Sheets(1)
    Windows("sheetcopy_a.xls").Activate
    Sheets("Sheet3").Select
    Sheets("Sheet3").Copy After:=Workbooks("sheetcopy_b.xls").Sheets(2)
    Windows("sheetcopy_a.xls").Activate
    Sheets("Sheet5").Select
    Sheets("Sheet5").Copy After:=Workbooks("sheetcopy_b.xls").Sheets(3)
    Windows("sheetcopy_a.xls").Activate
End Sub

ひろさん、こんにちは。
こんな方法はどうでしょうか？

・表をつくります。
月	小遣い
1	10
2	20
3	30
4	40
5	50
6	60
7	70
8	80
9	90
10	100
11	110
12	120

・テキストボックスを2つ作ります。
・プログラムを書きます。
Private Sub TextBox1_Change()
    Worksheets(1).Activate
    If TextBox1.Text = "" Then
        TextBox2.Text = ""
    Else
        i = TextBox1.Text + 1
        TextBox2.Text = Cells(i, 2).Value
    End If
End Sub

・RefEditとコマンドボタンを作ります。
・グラフを書く手順をマクロ記録します。
・少し訂正して、次のようにプログラムを書きます。
・ポイントは、Range(RefEdit1.Value)です。
Private Sub CommandButton1_Click()
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(RefEdit1.Value), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "月"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "円"
    End With
End Sub

TERAさん
こんな方法はどうでしょうか？

各シートに記述します。
Private Sub ComboBox1_Change()
    test
End Sub

標準モジュールに記述します。
Public Sub test()
   If (ActiveSheet.Name = "Sheet1") Then
        MsgBox Date
   ElseIf (ActiveSheet.Name = "Sheet2") Then
        MsgBox Date + 7
   ElseIf (ActiveSheet.Name = "Sheet3") Then
        MsgBox Date + 14
   End If
End Sub

>MOさん
別の文書であれば1つのウィンドウ内で開きます。

>KENちゃんさん
以下のような例を試してみてください。

Private Sub CommandButton2_Click()
    Worksheets(1).Activate
    For i = 1 To 9
        Cells(i, 1).Value = ActiveWorkbook.BuiltinDocumentProperties(i).Name
        Cells(i, 2).Value = ActiveWorkbook.BuiltinDocumentProperties(i).Value
    Next
End Sub

あとは、「BuiltinDocumentProperties」のヘルプを参照してください。

>MOさん
以下のような例を試してみてください。

Private Sub CommandButton1_Click()
    Dim wordApp As Object

    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True

    With wordApp
        .ChangeFileOpenDirectory "D:\uchida\VBA\"
        .Documents.Open FileName:="テスト.doc"
    End With
End Sub

>メルモ さん
UserFormのInitializeイベントを使えばよいのではないでしょうか。
以下の例を試してみてください。

Private Sub UserForm_Initialize()
    TextBox1.Text = Date
End Sub

>Makitaさんへ
単にテキストボックスをクリアするだけなら、空のデータを入れるために、次のようにします。

Private Sub CommandButton1_Click()
    TextBox1.Text = ""
End Sub

>門脇さん へ
ワークブックオープンイベントを使えばよいのではないでしょうか。
以下の例を試してみてください。

Private Sub Workbook_Open()
    MsgBox "マクロの自動実行"
End Sub

以下の例を試してみてください。

1. ユーザーフォームを作ります。
2. コンボボックスを2つとテキストボックスを配置してください。
3. ワークシートのセル「C4..C6」に、それぞれ「コーヒー」、「紅茶」、「ミルク」と入力します。
4. 以下のコードを入力します。
   
   Private Sub ComboBox1_Change()
   TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex)
   End Sub
   
   Private Sub UserForm_Activate()
   ComboBox1.RowSource = "C4..C6"
   
   ComboBox2.AddItem ("コーヒー")
   ComboBox2.AddItem ("紅茶")
   ComboBox2.AddItem ("ミルク")
   End Sub
   
   Private Sub ComboBox2_Change()
   TextBox1.Text = ComboBox2.List(ComboBox2.ListIndex)
   End Sub
   
   
5. 実行すると、選択された項目がテキストボックスに表示されます。
   ComboBox1はRowSourceによる項目の指定方法を、ComboBox2はAddItemによる指定方法の例を示しています。
   

• Yasuo's Home Pageへ戻ります