| |
▼H. C. Shinopy さん：
『エクセルのＣ列ｎ行目とＤ列ｎ行目に入力した２つの文字列をＡ列ｎ行目をクリックする…』ということですが、Ａ列全行にボタンを作るわけにはいかないでしょう。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
Ａ列５０行位にボタンを作りたいのです。
ポップアップウインドウを使う場合には、操作手数がかかり、実用的ではなくなります。
例えば、
エクセルのＣ列２行目〜５０行目には、出身地名を予め書き込んでおきます。
２行目東京、３行目神奈川、４行目千葉、…
エクセルのＤ列１行目〜５０行目には、出身地名を予め書き込んでおきます。
２行目吉田正、３行目熊倉茂、４行目田中正一、…
エクセルのＡ列とＢ列の２行目〜５０行目は、コマンドボタンとなるようにプログラムしておきます。（一行目のセルは表示用に空けておきます）
エクセルのＡ列２行目をクリックすると、直前にアクティブだったワードをアクティブとし、カーソル位置に、吉田正東京（東京の文字は青色）をコピーする（枠は外す）。
エクセルのＢ列３行目をクリックすると、直前にアクティブだったワードをアクティブとし、カーソル位置に、熊倉茂をコピーする（枠は外す）。
〜〜〜〜〜〜〜というようなことをしたいのです〜〜〜〜〜〜〜〜〜〜〜〜〜〜
Option Explicit
Dim xlApp As Object ’ Exel.Application
Dim xlWb As Object ’ Exel.WorkBook
Dim xLWs As Object ’ Exel.Worksheet
Dim WdApp As Object ’ Word.Application
Dim WdDoc As Object ’ Word.Document
Dim Btn As CommandButton
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, …
xLWs.Range(B2).Copy 'セルB2をクリップボードにコピー
Dim LenN As Integer 'セルの長さを取得
lenN= Len(xLWs. Range(”A”).)N……？
Public Declare Function GetLastActivePopup Lib ”user32” (Byval hWnd&) As Long'直前にアクティブだったウインドウをアクティブにする
GetCursorPosition Paste '入力カーソルのポイントを取得しペーストする
End Sub
〜〜〜〜〜〜現在、断片的に調べていてつながりません〜〜〜〜〜〜〜〜〜〜
|
|
K．ぬま
- 07/11/11(日) 13:27 -
![[未読]](./data/word/image/read_icon.gif){kind=icon}
