Excel VBA質問箱 IV

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

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


882 / 13645 ツリー ←次へ | 前へ→

【77754】EXCEL2007で正常なのが2013では動かない 独身VBA 15/12/17(木) 21:29 質問[未読]
【77755】Re:EXCEL2007で正常なのが2013では動かない β 15/12/17(木) 23:28 発言[未読]
【77757】Re:EXCEL2007で正常なのが2013では動かない [名前なし] 15/12/18(金) 17:06 お礼[未読]
【77758】Re:EXCEL2007で正常なのが2013では動かない β 15/12/18(金) 17:32 発言[未読]
【77756】Re:EXCEL2007で正常なのが2013では動かない β 15/12/18(金) 7:31 発言[未読]

【77754】EXCEL2007で正常なのが2013では動かない
質問  独身VBA  - 15/12/17(木) 21:29 -

引用なし
パスワード
   エクセル2007で作り正常に作動していたのですが、2013で動かすと、新しく作ったシートに文字が打ち込めません。ほかのシートに移動させて再度、新しくできたシートに戻すと打ち込めます。なぜでしょうか?コードは以下の通りです。

Private Sub CommandButton1_Click()
  Dim ws As Worksheet
  Dim r As Long 'データの採取行数を代入する変数
  'データの最終行数を変数「r]に代入する
  r = Worksheets("会社名").Range("A1").CurrentRegion.Rows.Count
  '2行目からデータの最終行までループする
   Worksheets("会社名").Cells(r + 1, 2).Value = TextBox1.Value 'ユーザーフォームテキストボックス1を会社名シートの会社名欄に会社名を入れる
   Worksheets("会社名").Cells(r + 1, 3).Value = TextBox2.Value 'ユーザーフォームテキストボックス2を会社名シートの担当者欄に担当者を入れる
   Worksheets("会社名").Cells(r + 1, 4).Value = TextBox3.Value 'ユーザーフォームテキストボックス2を会社名シートの件名欄に件名を入れる
   Worksheets("FAX送信書").Copy after:=Worksheets(Worksheets.Count) 'FAX送信書をシートの一番あとにコピーする
   Worksheets(Worksheets.Count).Range("B4").Value = TextBox1.Value '新しいシートのB4にテキストボックス1の文字を入れる
   Worksheets(Worksheets.Count).Range("B6").Value = TextBox2.Value '新しいシートのB6にテキストボックス2の文字を入れる
   Worksheets(Worksheets.Count).Range("J15").Value = TextBox3.Value '新しいシートのJ15にテキストボックス2の文字を入れる
   Worksheets(Worksheets.Count).Range("W4").Value = Date '新しいシートのW4の欄に作成日を入れる
   Worksheets("会社名").Cells(r + 1, 1).Value = Worksheets(Worksheets.Count).Range("W4").Value
   ActiveSheet.Name = Format(Now, "yyyymmdd-hhmmss") '新規に作ったシートに日付と時間の名前をつける
   ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("会社名").Cells(r + 1, 5), Address:="", SubAddress:= _
   Format(Now, "'yyyymmdd-hhmmss'") & "!A1", TextToDisplay:=Format(Now, "'yyyymmdd-hhmmss'") & "!A1" '新しいシートを会社名のリンク欄にハイパーリンクさせる
   
   Unload UserForm1 'ユーザーフォームを閉じる
   ActiveSheet.Range("C18:AE18").Select
   ActiveCell.Value = ""
    
End Sub

【77755】Re:EXCEL2007で正常なのが2013では動かな...
発言  β  - 15/12/17(木) 23:28 -

引用なし
パスワード
   ▼独身VBA さん:

>エクセル2007で作り正常に作動していたのですが、2013で動かすと、新しく作ったシートに文字が打ち込めません。ほかのシートに移動させて再度、新しくできたシートに戻すと打ち込めます。

文章の意味がいまいちわからないのですが、Win8.1+xl2013 で提示のコードを動かしてみました。
問題なくシートが追加され書きこまれます。
出来上がったシートへの手作業入力も、もちろんできています。

具体的にはどんな不具合なんでしょうか?

【77756】Re:EXCEL2007で正常なのが2013では動かな...
発言  β  - 15/12/18(金) 7:31 -

引用なし
パスワード
   ▼独身VBA さん:

もしかして・・・
コピー元の FAX送信書 シート、保護がかかっていませんか?

【77757】Re:EXCEL2007で正常なのが2013では動かな...
お礼  [名前なし]  - 15/12/18(金) 17:06 -

引用なし
パスワード
   ▼β さん:
>▼独身VBA さん:
>
>>エクセル2007で作り正常に作動していたのですが、2013で動かすと、新しく作ったシートに文字が打ち込めません。ほかのシートに移動させて再度、新しくできたシートに戻すと打ち込めます。
>
>文章の意味がいまいちわからないのですが、Win8.1+xl2013 で提示のコードを動かしてみました。
>問題なくシートが追加され書きこまれます。
>出来上がったシートへの手作業入力も、もちろんできています。
>
>具体的にはどんな不具合なんでしょうか?

βさん:
お返事ありがとうございます。
新しく出来上がったシートがActivate状態になっているのですが、文字を打ち込むとその前に作ったシートの方に入力されてしまいます。他のシートにクリックして新しく作ったシートをクリックして文字を打ち込むと、きちんと入力できるんです。
元のシートは保護はかかっていません。

【77758】Re:EXCEL2007で正常なのが2013では動かな...
発言  β  - 15/12/18(金) 17:32 -

引用なし
パスワード
   ▼独身VBA さん:

不思議ですねぇ。
こちらでユーザーフォームを表示してコマンドボタンでシート作成。
またユーザーフォームを表示してコマンドボタンでシート作成。

何度やっても、アクティブになっている、今作られたばかりのシートに入力ができます。

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