Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1428 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【74548】テキストボックスの和暦表示 もろ 13/7/21(日) 21:54 質問[未読]
【74549】Re:テキストボックスの和暦表示 kanabun 13/7/21(日) 22:52 発言[未読]
【74552】Re:テキストボックスの和暦表示 もろ 13/7/22(月) 22:06 回答[未読]
【74553】Re:テキストボックスの和暦表示 kanabun 13/7/23(火) 9:42 発言[未読]
【74555】Re:テキストボックスの和暦表示 もろ 13/7/23(火) 21:56 お礼[未読]
【74557】Re:テキストボックスの和暦表示 kanabun 13/7/23(火) 23:17 発言[未読]
【74548】テキストボックスの和暦表示
質問  もろ  - 13/7/21(日) 21:54 -
引用なし
パスワード
   質問です。患者リストをユーザーフォームに表示させるようにしており、患者の生年月日をテキストボックスに表示させるようにしているのですが、セルはS48.6.3のように和暦設定にしているのですが、テキストボックスには西暦で表示されます。テキストボックスを和暦表示するにはどうすればよろしいでしょうか。よろしくお願いします。
【74549】Re:テキストボックスの和暦表示
発言  kanabun  - 13/7/21(日) 22:52 -
引用なし
パスワード
   ▼もろ さん：

> セルはS48.6.3のように和暦設定にしているのですが、
> テキストボックスには西暦で表示されます。
> テキストボックスを和暦表示するにはどうすればよろしいでしょうか。

今どのようにセットしていますか？

(1)
　　TextBox1.Text = セル.Value

(2)
　　TextBox1.Text = セル.Text
【74552】Re:テキストボックスの和暦表示
回答  もろ  - 13/7/22(月) 22:06 -
引用なし
パスワード
   ▼kanabun さん：
>▼もろ さん：
>
>> セルはS48.6.3のように和暦設定にしているのですが、
>> テキストボックスには西暦で表示されます。
>> テキストボックスを和暦表示するにはどうすればよろしいでしょうか。
>
>今どのようにセットしていますか？
>
>(1)
>　　TextBox1.Text = セル.Value
>
>(2)
>　　TextBox1.Text = セル.Text

スクロールバーと同期させるようにしているので、以下のようにしています。

For i = 1 To 71

Me.Controls("textbox" & CStr(i)).Value = Selection.Cells(1, i)
Next
【74553】Re:テキストボックスの和暦表示
発言  kanabun  - 13/7/23(火) 9:42 -
引用なし
パスワード
   ▼もろ さん：

>>今どのようにセットしていますか？
>>
>>(1)
>>　　TextBox1.Text = セル.Value
>>
>>(2)
>>　　TextBox1.Text = セル.Text
>
>スクロールバーと同期させるようにしているので、以下のようにしています。
>
>For i = 1 To 71
>
>Me.Controls("textbox" & CStr(i)).Value = Selection.Cells(1, i)
>Next

Selection というのがどこかよく分からんのですが、

>　Selection.Cells(1, i)

というのは　

　Selection.Cells(1, i).VALUE

の端折った書き方ですよね？
こちらの提案は .Value ではなく そこを

　Selection.Cells(1, i).TEXT

にしたらどうか？ ということです。
【74555】Re:テキストボックスの和暦表示
お礼  もろ  - 13/7/23(火) 21:56 -
引用なし
パスワード
   ▼kanabun さん：
>▼もろ さん：
>
>>>今どのようにセットしていますか？
>>>
>>>(1)
>>>　　TextBox1.Text = セル.Value
>>>
>>>(2)
>>>　　TextBox1.Text = セル.Text
>>
>>スクロールバーと同期させるようにしているので、以下のようにしています。
>>
>>For i = 1 To 71
>>
>>Me.Controls("textbox" & CStr(i)).Value = Selection.Cells(1, i)
>>Next
>
>Selection というのがどこかよく分からんのですが、
>
>>　Selection.Cells(1, i)
>
>というのは　
>
>　Selection.Cells(1, i).VALUE
>
>の端折った書き方ですよね？
>こちらの提案は .Value ではなく そこを
>
>　Selection.Cells(1, i).TEXT
>
>にしたらどうか？ ということです。


ありがとうございました！　.textにしたら和暦表示になりました。
ついでに申し訳ないのですが、もうひとつ質問させていただきますと、フォームのテキストボックスなのですが、文字数を多く入れてしまうとテキストボックスから文字がはみ出してしまうことがあるのですが、セルのように縮小して表示させるようなことをテキストボックスで行うことは可能でしょうか？重ね重ね質問して申し訳ございませんが、よろしくお願いします！
【74557】Re:テキストボックスの和暦表示
発言  kanabun  - 13/7/23(火) 23:17 -
引用なし
パスワード
   ▼もろ さん：

>ついでに申し訳ないのですが、もうひとつ質問させていただきますと、フォームのテキストボックスなのですが、文字数を多く入れてしまうとテキストボックスから文字がはみ出してしまうことがあるのですが、セルのように縮小して表示させるようなことをテキストボックスで行うことは可能でしょうか？

全然別の質問に見えるので、
スレッドを改めて 質問されてはいかがでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1428 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free