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 '''上から150ポイントから分割
と言う命令があります、また
activewindow.panes(1).〜〜という命令もあります、
2分割なら(1)(2)なのでこれで指定すれば良いのでしょう。


>▼パン さん:はじめまして。
>コードは何でもないコードなのですが、
>
>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