Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7928 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【36073】inputboxメソッドでのpromptについて ビギナー 06/3/20(月) 14:39 質問[未読]
【36074】Re:inputboxメソッドでのpromptについて Kein 06/3/20(月) 14:44 回答[未読]
【36075】Re:inputboxメソッドでのpromptについて ビギナー 06/3/20(月) 14:57 お礼[未読]
【36079】Re:inputboxメソッドでのpromptについて Kein 06/3/20(月) 15:29 回答[未読]
【36097】Re:inputboxメソッドでのpromptについて ビギナー 06/3/20(月) 18:02 お礼[未読]
【36073】inputboxメソッドでのpromptについて
質問  ビギナー  - 06/3/20(月) 14:39 -
引用なし
パスワード
   ご存知の方、御教授頂けないでしょうか？

以下、質問です。
inputboxメソッドのpromptで表示できる行数
を増やすことはできないでしょうか？

prompt中に　vbcrlf　を設定していくと
６行目あたりから、prompt中の内容が
テキストボックスに隠れて見えなくなって
しまいます。

見えない部分を表示する方法は
inputbox関数を使う以外何かよい方法はないでしょうか？
(処理ではセルをクリックしてアドレスを取得するようにしてるので)

もしinputboxメソッドのフォームの高さ自体を変える方法等が
あれば御教授お願い致します。
【36074】Re:inputboxメソッドでのpromptについて
回答  Kein  - 06/3/20(月) 14:44 -
引用なし
パスワード
   ユーザーフォームにラベルとテキストボックスを配置して、代用するのが確実かと
思いますが。
【36075】Re:inputboxメソッドでのpromptについて
お礼  ビギナー  - 06/3/20(月) 14:57 -
引用なし
パスワード
   ▼Kein さん：
早速の御返答ありがとうございます。

>ユーザーフォームにラベルとテキストボックスを配置して、代用するのが確実かと
>思いますが。

そうしたいのですが、自分のスキルの無さで
セルをクリックしてテキストボックスに
アドレスを取得するプログラムが
わからないのです・・

大変申し訳ありませんが、ご存知であれば
その方法の一部でも御教授頂けないでしょうか？
よろしくお願いします。
【36079】Re:inputboxメソッドでのpromptについて
回答  Kein  - 06/3/20(月) 15:29 -
引用なし
パスワード
   >セルをクリックしてテキストボックスにアドレスを取得する

[標準モジュール]

Public Cell_Ad As String

[シートモジュール]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
　 Cancel = True
　 Cell_Ad = Target.Address
　 UserForm1.Show
End Sub

[フォームモジュール]

Private Sub UserForm_Activate()
　 Me.TextBox1.Text = Cell_Ad
End Sub

基本的には、以上のようなコードで出来るはずです。(セルはダブルクリック)
【36097】Re:inputboxメソッドでのpromptについて
お礼  ビギナー  - 06/3/20(月) 18:02 -
引用なし
パスワード
   ▼Kein さん：
>>セルをクリックしてテキストボックスにアドレスを取得する
>
>[標準モジュール]
>
>Public Cell_Ad As String
>
>[シートモジュール]
>
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
>Cancel As Boolean)
>　 Cancel = True
>　 Cell_Ad = Target.Address
>　 UserForm1.Show
>End Sub
>
>[フォームモジュール]
>
>Private Sub UserForm_Activate()
>　 Me.TextBox1.Text = Cell_Ad
>End Sub
>
>基本的には、以上のようなコードで出来るはずです。(セルはダブルクリック)

大変ありがとうございました。
思い通り動かすことができました〜
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7928 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free