Results of 1 - 1 of about 8930 for リスト (0.007 sec.)
- [[20190301115833]]
- #score: 2746
- @digest: 7a277e76ace92f6a966c18cfc24a7efc
- @id: 78801
- @mdate: 2019-03-01T07:36:05Z
- @size: 1651
- @type: text/plain
- #keywords: ト. (9163), ド?' (7748), xldialogprint (4054), 刷_ (3694), ス") (3272), 記時 (2754), list (2106), リス (1595), selected (1560), dialogs (1484), listcount (1276), スト (1038), タ1 (987), 改行 (924), タベ (854), 刷時 (802), 力添 (784), ベー (595), で改 (584), 任意 (583), flg (575), 転記 (522), 置で (503), 位置 (460), 印刷 (405), ース (348), 記す (346), split (337), 意の (319), 行さ (306), る際 (302), トボ (301)
- 『転記時に任意の位置で改行させる』（りり）
いつもお世話になっております。 ユーザーフォーム（リストボックス）を使って、印刷時にシート上のセルにある長い文字列を別のシートに転記する際、任意の位置で改行させたいと考えています。 具体的に言うと、リスト.List(i, 5)の文字列に全角のスペースが2つ入っていた場合、転記する際にその位置で改行されるようにしたいのです。 どうかお力添えをお願いします。 ---- Private Sub 印刷_Click() Dim i As Long, flg As Boolean With Worksheets("データベース") For i = 0 To リスト.ListCount - 1 If リスト.Selected(i) Then .Range("B6").Value = " 〒" & Me.リスト.List(i, 13) & "-" & Me.リスト.List(i, 14) .Range("B7").Value = Me.リスト.List(i, 6) .Range("B8").Value = Me.リスト.List(i, 15) 'ここで処理のコード?' .Range("B9").Value = Me.リスト.List(i, 5) Sheets("データベース").Activate Application.Dialogs(xlDialogPrint).Show Arg4:=1, Arg13:="プリンタ1" flg = True End If Next If Not flg Then MsgBox "印刷する項目を選択してください。" Exit Sub End If End With End Sub ＜ 使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- if instr(Me.リスト.List(i, 5)," ")>0 then .Range("B9").Value = split(Me.リスト.List(i, 5)," ")(0) & vblf & split(Me.リスト.List(i, 5)," ")(1) else .Range("B9").Value = Me.リスト.List(i, 5) end if （mm） 2019/03/01(金) 13:13 ---- mmさん ちゃんとできました! ありがとうございましたm(__)m （りり） 2019/03/01(金) 16:36... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201903/20190301115833.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97045 documents and 608224 words.
訪問者：