Excel VBA質問箱 IV

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

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


35839 / 76732 ←次へ | 前へ→

【46084】Re:ユーザーフォームのリストを検索→転記
発言  yasu  - 07/1/22(月) 17:25 -

引用なし
パスワード
   ▼かみちゃん さん:

>>>ListBoxのClickイベントを使うと、Clickしたときに動きますので、
>>>ひとつだけ選ぶというのであれば、ComboBoxのほうが簡単です。
>>
>>ComboBoxは検索したときに一覧表示で出ないのでいかがなものかな
>
>なるほど。
>でも、ListBoxの選択肢がたくさんあると、結局ComboBoxと同じように縦スク
>ロールで探さないといけないですよね。
>後は、配置したときには、1データ分の縦幅で済みます。選択するときだけ
>▼でプルダウン表示すれば一覧は見えますから・・・
>複数選択する必要がないのなら、値の取得をするコードも簡単なことから、
>ComboBoxがおすすめですけど、それでも、ListBoxにしますか?

かみちゃんのお勧め通りComboBoxでやってみます。

>>>>>>その上で全角半角・大文字小文字を何とかなりませんか・・・
>>>>>
>>>>>ListBox表示するときに、全角・半角、大文字・小文字を統一できたらいいのですが、
>>>>>そういうわけにはいきませんか?
>>>>会社の会計専用ソフトのデータを引き出してきていますので
>>>>出来ればそのまま使いたいのですが
>>>>千数百件もあると見落としもあると思うので・・・
>>>
>>>見落としはないと思いますよ。
>>>なぜなら、ListBoxに反映させるときに、プログラムが統一処理しますから、別に
>>>yasuさんご自身が元データを修正してくださいというわけではないです。
>>>プログラムで処理する際も、あくまでListBox上の話です。元データはそのままで
>>>す。
>>
>>よく解らないのですが専用ソフトからコードと社名のみ出力したデータを
>>貰うのですがそのデータ自体カタカナ名がの全角だったり、半角だったり
>
>状況は、私のところでも同じなので、よくわかります。
>最終的には、全角・半角、大文字・小文字を無視(プログラム内部で統一変換)
>して処理することができますから、そのようなコードにすればいいです。
>
>変換処理は、たとえば、以下のような感じです。
>例では、英字のサンプルになっていますが、数字やカタカナでも一緒です。
>また、変換後のバイト数(全角2バイト、半角1バイト)を確認していただく
>ために少々複雑なように見えますが、ポイントは、StrConv関数です。
>標準モジュールに貼り付けて確認してみてください。
>
>Sub Sample1()
> Dim strData As String
> 
> strData = "ABcd"
> MsgBox _
>  "元データ      " & strData & " " & _
>   LenB(StrConv(strData, vbFromUnicode)) & _
>    "Byte" & vbCrLf & _
>  "全角に統一     " & StrConv(strData, vbWide) & " " & _
>   LenB(StrConv(StrConv(strData, vbWide), vbFromUnicode)) & _
>    "Byte" & vbCrLf & _
>  "半角に統一     " & StrConv(strData, vbNarrow) & " " & _
>   LenB(StrConv(StrConv(strData, vbNarrow), vbFromUnicode)) & _
>    "Byte" & vbCrLf & _
>  "小文字に統一    " & StrConv(strData, vbLowerCase) & " " & _
>    LenB(StrConv(StrConv(strData, vbLowerCase), vbFromUnicode)) & _
>    "Byte" & vbCrLf & _
>  "大文字に統一    " & StrConv(strData, vbUpperCase) & " " & _
>   LenB(StrConv(StrConv(strData, vbUpperCase), vbFromUnicode)) & _
>    "Byte" & vbCrLf & _
>  "全角大文字に統一  " & StrConv(StrConv(strData, vbWide), vbUpperCase) & " " & _
>   LenB(StrConv(StrConv(StrConv(strData, vbWide), vbUpperCase), vbFromUnicode)) & _
>    "Byte" & vbCrLf & _
>  "半角小文字に統一  " & StrConv(StrConv(strData, vbNarrow), vbLowerCase) & " " & _
>   LenB(StrConv(StrConv(StrConv(strData, vbNarrow), vbLowerCase), vbFromUnicode)) & _
>    "Byte"
>End Sub
>
>>>それにしても、会計専用ソフトですか・・・
>>>私も市販の会計ソフトのデータをExcelへ展開するなどの作業はマクロで処理していますね。
>>かみちゃんさんと違いマクロ処理などできませんね・・・
>>出来るようになりたいですが少しずつここの掲示板を参考にしながら
>>徐々にやりたいと考えています
>
>私も同じようなことをしていますので、何かのお役に立てるのならば、今後ともよろしく
>お願いします。
>
>ところで、後問題として残っているのは、

>1.ListBoxに一旦全体のデータを反映させるのか?
これは前にも申し上げたように一応表示させたいです。

>2.検索条件に一致したもののListBoxはComboBoxにではいけませんか?
お勧めでやってみます

>3.全角半角、大文字小文字統一処理は可能か?
上のコードのSub Sample1()実行してみましたが
いまいち使い方が解りませんsample1を実行すると
MsgBoxが表示され元データ 6byte等表示されますが
エクセル上で(テキスト.txt登録前)に変換させるプログラムですか?

>4.2.で反映されたListBox(またはComboBox)からセルへの転記は、CommandButtonをClickしたとき?
ハイそうです。

>というところでしょうか?

かみちゃんさん下記のエクセルからの読込ですが
今現在読みこんでくるのは
操作を行ったsheetのA1からのデータなんですが
コード.xlsを読んでいない
下記間違ってます
Private Sub UserForm_Initialize()
 Dim ws As Worksheet

 Set ws = Workbooks("コード.xls").Sheets("Sheet1")
 With ws.Range("A1", ws.Cells(Rows.Count, 3).End(xlUp))
  Me.ListBox1.ColumnCount = .Columns.Count
  Me.ListBox1.ColumnWidths = "30 pt;50 pt;40 pt"
  Me.ListBox1.RowSource = .Address
 End With
End Sub
希望こんな感じです。よろしくお願いします。
紹介いただいたダイアログ今テスト中です。
0 hits

【46028】ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 17:02 質問
【46030】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 17:15 発言
【46031】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 17:33 発言
【46037】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 18:43 発言
【46039】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 20:29 発言
【46043】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 20:46 発言
【46051】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 22:51 発言
【46052】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 23:12 発言
【46057】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 23:32 発言
【46058】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 0:09 発言
【46060】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 0:21 発言
【46061】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 7:15 発言
【46063】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 10:21 発言
【46064】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 11:35 発言
【46067】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 12:18 発言
【46070】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 13:01 発言
【46071】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 13:09 発言
【46066】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 12:04 発言
【46084】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 17:25 発言
【46085】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 18:06 発言
【46087】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 18:12 発言
【46088】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 18:23 発言
【46086】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 18:07 発言
【46090】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 18:45 発言
【46092】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 20:48 発言
【46098】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 21:48 発言
【46099】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 22:07 発言
【46100】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 22:44 発言
【46101】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 22:55 発言
【46106】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 2:51 発言
【46107】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 3:03 発言
【46109】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 7:33 発言
【46114】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 9:28 発言
【46117】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 11:09 回答
【46120】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 14:09 発言
【46121】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 14:42 発言
【46122】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 15:09 発言
【46124】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 16:51 回答
【46129】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 17:33 発言
【46133】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 20:22 発言
【46134】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 20:40 発言
【46139】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/24(水) 3:58 発言
【46140】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/24(水) 7:28 発言
【46157】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/24(水) 20:44 発言
【46159】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/24(水) 20:51 発言
【46168】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/25(木) 0:22 お礼

35839 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free