Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1447 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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 -


	引用なし

	パスワード

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1447 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free