FinePix F30 記述の解決方法

質問者が納得単純にコピーしてます。 で、エラー処理とかは考えてません。 でも、考え方としては参考になるかな。。 Sub 見積書呼出() Dim OpenFile As String Dim myBook As Workbook Dim mySh As Worksheet ChDir "E:見積書" OpenFile = Application.GetOpenFilename("Excelブック,*.*") Set myBook = Workbooks.Open(OpenFil...

質問者が納得手抜きの方法ですが―― まず、それぞれの表範囲に、"AA"、"BB"、"CC" といった名前をつけます。 （"C"という名前は受け付けてくれませんので、２文字にしました） ↓ コントロールツールボックスで作成したコマンドボタンに、次のように 記述します。 Private Sub CommandButton1_Click() Dim Area Area = Range("A1").Value If A...