Excel総合相談所 88

Excel総合相談所 88at BSOFT

Excel総合相談所 88 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

139:134
 09/11/10 11:54:36 
Private Sub UserForm_Initialize() 
Dim lastRow As Long 
 Dim ReturnBook As Workbook, TargetBook As Workbook 
    Set ReturnBook = ActiveWorkbook 
    Application.ScreenUpdating = False 
    Set TargetBook = Workbooks.Open("D:\test\sample.xls") 
     
    With Worksheets("商品マスタ") 
            lastRow = .Cells(Rows.Count, 1).End(xlUp).Row 
        End With 
    With ListBox1 
            .ColumnCount = 3 
            .ColumnWidths = "50;50;50" 
            .RowSource = "商品マスタ!B2:D" & lastRow 
        End With 
    ReturnBook.Activate 
    Application.ScreenUpdating = True 
    TargetBook.Close 
End Sub 
 
とりあえずリストボックス自体はなんとか表示することは出来たのですが、 
リストボックスの最終行が文字化けしてしまい、 
この操作を完了するのに十分な記憶域がありません。とエラーが出てしまいます 
助けて下さい・・・

140:名無しさん＠そうだ選挙にいこう
 09/11/10 21:25:46 
【1 OSの種類 　 　 　 　 .】 Windowsxp 
【2 Excelのバージョン 　 】 Excel2003 
【3 VBAが使えるか　 　 .】 いいえ 
【4 VBAでの回答の可否】 否 
【5 検索キーワード 　 　 】 
 
 
ttp://www1.axfc.net/uploader/Img/link.pl?dr=5451451746&file=Img_64624.jpg 
説明の仕方が分からないので図に描いてみました。 
図の様に文字書きたいんですができますか？

次ページ