Excel VBA質問箱 IV

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

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


49525 / 76732 ←次へ | 前へ→

【32116】Re:8桁の文字を1個ずつ抽出
発言  ぼんぼん  - 05/12/6(火) 16:08 -

引用なし
パスワード
   改めて、全文を掲載します
現時点は、下記の状態で・・・
ADD1 の郵便番号(D列に「123-4567」)を分割して
シート"はがき縦"の
 E1,F1,G1,H1,I1,J1 に配列したいのです

Sub 宛名印刷はがき縦() 'はがき縦
  Dim myRow As Integer
  Dim Check As String
  Dim Name1 As String
  Dim Name2 As String
  Dim Add1 As String
  Dim Add2 As String
  Dim Add3 As String
  Dim Add4 As String
  

  '変数の最初の内容を設定する
  Worksheets("名簿").Select
  myRow = 2
  Check = Cells(myRow, 1).Value
  Name1 = Cells(myRow, 2).Value
  Name2 = Cells(myRow, 3).Value
  Add1 = Cells(myRow, 4).Value
  Add2 = Cells(myRow, 5).Value
  Add3 = Cells(myRow, 6).Value
  Add4 = Cells(myRow, 7).Value

  'データがなくなるまで処理を繰り返す
  Do Until Check = "end"
  
    '名前を転記
    Worksheets("はがき縦").Range("F9").Value = Name1
    Worksheets("はがき縦").Range("H9").Value = Name2
    '住所を転記
    Worksheets("はがき縦").Range("E1").Value = Add1
    Worksheets("はがき縦").Range("E4").Value = Add2
    Worksheets("はがき縦").Range("F5").Value = Add3
    Worksheets("はがき縦").Range("G6").Value = Add4
    
    If Check = "レ" Then
    '印刷
    Sheets("はがき縦").Select
    ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
     End If
          
    '変数を更新(1行)
    Worksheets("名簿").Select
    myRow = myRow + 1
    Check = Cells(myRow, 1).Value
    Name1 = Cells(myRow, 2).Value
    Name2 = Cells(myRow, 3).Value
    Add1 = Cells(myRow, 4).Value
    Add2 = Cells(myRow, 5).Value
    Add3 = Cells(myRow, 6).Value
    Add4 = Cells(myRow, 7).Value
    
  Loop
      
End Sub

質問が前後して、すんません。


▼awu さん:
>ちょっと、やろうとしている全体が、いまいち見えませんが・・・・
>
>> シート"名簿"の 4列目が 123-4567 という形の郵便番号となってます
>> この8桁の1文字ずつを、シート"はがき縦"の各セルに表示したいのですが・
>
>この内容からは、こんな感じのことと思うのですが、如何でしょうか。
>
>「名簿」シートのD列2行目から下にある郵便番号を1文字ずつ「はがき縦」シートの
>同行のE列から順に右へ書き出す と解釈します。
>
>Sub Div_PostNo()
>Dim Rng As Range
>Dim N As Integer
>Worksheets("名簿").Activate
>With Worksheets("はがき縦")
>  For Each Rng In Range("D2", Range("D65536").End(xlUp))
>    For N = 1 To 8
>      .Cells(Rng.Row, Rng.Column + N).Value = _
>        Mid(Trim(Rng.Value), N, 1)
>    Next N
>  Next Rng
>End With
>End Sub
3 hits

【32099】8桁の文字を1個ずつ抽出 ぼんぼん 05/12/6(火) 14:54 質問
【32101】Re:8桁の文字を1個ずつ抽出 Statis 05/12/6(火) 15:08 発言
【32106】Re:8桁の文字を1個ずつ抽出 ぼんぼん 05/12/6(火) 15:36 発言
【32108】Re:8桁の文字を1個ずつ抽出 Statis 05/12/6(火) 15:45 発言
【32112】Re:8桁の文字を1個ずつ抽出 Statis 05/12/6(火) 16:02 回答
【32111】Re:8桁の文字を1個ずつ抽出 awu 05/12/6(火) 15:56 回答
【32114】Re:8桁の文字を1個ずつ抽出 awu 05/12/6(火) 16:05 発言
【32116】Re:8桁の文字を1個ずつ抽出 ぼんぼん 05/12/6(火) 16:08 発言
【32117】Re:8桁の文字を1個ずつ抽出 Statis 05/12/6(火) 16:21 回答
【32138】Re:8桁の文字を1個ずつ抽出 bykin 05/12/6(火) 22:38 回答
【32157】Re:8桁の文字を1個ずつ抽出 ぼんぼん 05/12/7(水) 16:03 お礼
【32115】Re:8桁の文字を1個ずつ抽出 Kein 05/12/6(火) 16:05 回答

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