Excel VBA質問箱 IV

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

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


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

35911 / 76732

←次へ　｜　前へ→


	【46009】Re:ユーザーフォームのListBoxから転記

かみちゃん - 07/1/21(日) 12:25 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

横から失礼します。

>Private Sub ListBox1_MouseUp(ByVal Button As Integer, _
>　　　　ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
>　　ActiveCell.Value = ListBox1.Value
>　　Unload Me
>End Sub
>上記コードで利用できますか？

どこが文字列になっているかを考えましょう。
ListBox1.Value
とは、何だと思いますか？
Left(ListBox1.Value, 6)
今回は、半角数字とのことですが、全角半角が混ざってバイト単位の処理をしたい場合、少しややこしい処理が必要です。

0 hits

▼

【46003】ユーザーフォームのListBoxから転記 yasu 07/1/21(日) 11:58