Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68771 / 76734 ←次へ | 前へ→

【12490】エラーに表示してあるが指導お願いします。
質問  さる E-MAIL  - 04/4/6(火) 12:30 -

引用なし
パスワード
   CommandButton1_Click() '入力完了ボタンを押してもエラー
なるけどコンパイルエラーと表示してある。
どなた方にご指導お願いします。


Sub 顧客フォームを開く()
UserForm3.Show
End Sub
Private Sub CommandButton1_Click() '入力完了ボタン
  'Changeイベントがおきないように。
  Application.EnableEvents = False
  Dim ws As Worksheet, Rpos As Long
  Set ws = Worksheets("顧客データ")
  'いつかくしたの?
  ws.Visible = True
  ws.Activate
  'A列(番号)の最終行をチェックし、そこに通し番号を入力します。
  Rpos = ws.Range("A65536").End(xlUp).Row + 1
  'B列(氏名)にテキストボックスの会社名を入力します。
  With ws
    If Rpos = 3 Then
      .Cells(Rpos, 1).Value = 1
    Else
      .Cells(Rpos, 1).Value = .Cells(Rpos - 1, 1).Value + 1
    End If
    '
    .Cells(Rpos, 2).Value = TextBox1.Text '会社名
    .Cells(Rpos, 3).Value = TextBox2.Text '本部名コード
    .Cells(Rpos, 4).Value = TextBox3.Text '支部名コード
    .Cells(Rpos, 5).Value = TextBox5.Text '実施日(年度)
    .Cells(Rpos, 6).Value = TextBox5.Text '実施日(月)
    .Cells(Rpos, 7).Value = TextBox5.Text '実施日(日)
   
  End With
  'フォルダ指定
  ChDir "C:\Documents \My Documents\顧客データ\ & textbox5 & 年度"
  
  '本部コード(001〜999)−支部コード(01〜99)-年度(実施日)-月(実施日)-日(実施日).cvsを保存します。
  
   ActiveWorkbook.SaveAs Filename:= _
    "C:\Documents and Settings\さとる\My Documents\顧客データ\2004年度\" _
    & TextBox2 & "-" & TextBox3 & "-" & txetbox5 & "-" & txetbox6 & "-" & txetbox7 & ".csv", _
    FileFormat:=xlCSV, CreateBackup:=False
    
  'TextBox_Clear
  Dim obj As Control
  For Each obj In Me.Controls
    If TypeName(obj) = "TextBox" Then
      obj.Text = ""
    End If
  Next
  '
  Me.OptionButton1.Value = True
  '行の複製
  RowCopy Rpos
  '
  TextBox1.SetFocus
  Application.EnableEvents = True
End Sub


Private Sub UserForm_Activate()
  'ここで一回やっとくだけでよいような。気になるなら、上でもやったほうがいいかも。
  Dim obj As Control
  For Each obj In Me.Controls
    If TypeName(obj) = "TextBox" Then
      obj.IMEMode = 2
      obj.MaxLength = 3
      obj.AutoTab = True
    End If
  Next
  '特殊な分だけここで別途処理
  TextBox1.MaxLength = 0 '会社名
  TextBox2.MaxLength = 3 '本部コード
   TextBox3.MaxLength = 2 '支部コード
   TextBox5.MaxLength = 0
  
  Me.OptionButton1.Value = True
End Sub


Private Sub CommandButton2_Click() 'キャンセル
Sheets("顧客データ").Visible = True
Me.Hide
Worksheets("顧客データ").Activate
End Sub

0 hits

【12490】エラーに表示してあるが指導お願いします。 さる 04/4/6(火) 12:30 質問
【12492】Re:エラーに表示してあるが指導お願いしま... Asaki 04/4/6(火) 12:42 回答
【12504】Re:エラーに表示してあるが指導お願いしま... さる 04/4/6(火) 14:22 質問
【12506】Re:エラーに表示してあるが指導お願いしま... Asaki 04/4/6(火) 14:28 回答
【12515】Re:エラーに表示してあるが指導お願いしま... さる 04/4/6(火) 16:50 お礼

68771 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free