Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6858 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【42716】分割されたウインドウに文字を送るには キャプテン・シップ 06/9/20(水) 6:37 質問[未読]
【42718】Re:分割されたウインドウに文字を送るには パン 06/9/20(水) 8:08 発言[未読]
【42722】Re:分割されたウインドウに文字を送るには キャプテン・シップ 06/9/20(水) 9:36 発言[未読]
【42723】Re:分割されたウインドウに文字を送るには Jaka 06/9/20(水) 10:12 発言[未読]
【42728】Re:分割されたウインドウに文字を送るには Jaka 06/9/20(水) 10:24 発言[未読]
【42724】Re:分割されたウインドウに文字を送るには パン 06/9/20(水) 10:16 発言[未読]
【42730】Re:分割されたウインドウに文字を送るには キャプテン・シップ 06/9/20(水) 11:14 お礼[未読]
【42716】分割されたウインドウに文字を送るには
質問  キャプテン・シップ E-MAIL  - 06/9/20(水) 6:37 -
引用なし
パスワード
   ふたつな分割したワークシートの、一方のワークシートにVBAから文字を送りたいのですが、うまく行きません。
ちなみに、ワークシートは上下に分割しています。
よろしく御願いいたします。
【42718】Re:分割されたウインドウに文字を送るには
発言  パン E-MAIL  - 06/9/20(水) 8:08 -
引用なし
パスワード
   ▼キャプテン・シップ さん：
こんにちは、パンです。
どんなコードでしょうか？
やったこと無いので興味あります。

>ふたつな分割したワークシートの、一方のワークシートにVBAから文字を送りたいのですが、うまく行きません。
>ちなみに、ワークシートは上下に分割しています。
>よろしく御願いいたします。
【42722】Re:分割されたウインドウに文字を送るには
発言  キャプテン・シップ E-MAIL  - 06/9/20(水) 9:36 -
引用なし
パスワード
   ▼パン さん：はじめまして。
コードは何でもないコードなのですが、

Dim a1
WookSheets(1),Cell(5,2)=a1

送り先のワークシートをメニューの「ウインドウ」→「ウインドウの分割」で上下二つに分けています。
上のコードだと、上のウインドウには正常に入力できるのですが、したのウインドウにはいまくいきません。
たぶんWookSheets(1)のプロパティを設定するのんなぁ、と思い、ヘルプ見ながらやっているのですが、どうしてもうまくいきません。


>▼キャプテン・シップ さん：
>こんにちは、パンです。
>どんなコードでしょうか？
>やったこと無いので興味あります。
【42723】Re:分割されたウインドウに文字を送るには
発言  Jaka  - 06/9/20(水) 10:12 -
引用なし
パスワード
   ただの分割ですよね？
表示されているのは、同シートだから、
単純に
Range("G7").Value = Range("A4").Value
Range("B98").Value = Range("G7").Value
こんなので良いと思いますけど....。
【42724】Re:分割されたウインドウに文字を送るには
発言  パン E-MAIL  - 06/9/20(水) 10:16 -
引用なし
パスワード
   ▼キャプテン・シップ さん：
シートナンバー指定でなくシート名でされてはどうでしょうか？
WookSheets(1),Cell(5,2)=a1は,でなくて .では？
私も良くわからないので、
activewindow.splitrow = 4　'''4行目分割
activewindow.splithorizontal = 150　'''上から１５０ポイントから分割
と言う命令があります、また
activewindow.panes(1).〜〜という命令もあります、
２分割なら（１）（２）なのでこれで指定すれば良いのでしょう。


>▼パン さん：はじめまして。
>コードは何でもないコードなのですが、
>
>Dim a1
>WookSheets(1),Cell(5,2)=a1
>
>送り先のワークシートをメニューの「ウインドウ」→「ウインドウの分割」で上下二つに分けています。
>上のコードだと、上のウインドウには正常に入力できるのですが、したのウインドウにはいまくいきません。
>たぶんWookSheets(1)のプロパティを設定するのんなぁ、と思い、ヘルプ見ながらやっているのですが、どうしてもうまくいきません。
>
>
>>▼キャプテン・シップ さん：
>>こんにちは、パンです。
>>どんなコードでしょうか？
>>やったこと無いので興味あります。
【42728】Re:分割されたウインドウに文字を送るには
発言  Jaka  - 06/9/20(水) 10:24 -
引用なし
パスワード
   質問内容がよく解ってないけど、おまけ
（Window操作だから、アクティブであることが条件）

With ActiveWindow
　 '分割表示されている各ウインドウの左上が、Cells(1,1)にあたります。
　 MsgBox .Panes(1).VisibleRange.Cells(2, 1).Value
　 MsgBox .Panes(2).VisibleRange.Cells(7, 3).Value
End With
【42730】Re:分割されたウインドウに文字を送るには
お礼  キャプテン・シップ E-MAIL  - 06/9/20(水) 11:14 -
引用なし
パスワード
   うまくいきました。
みなさん、ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6858 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free