Excel VBA質問箱 IV

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

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


47928 / 76732 ←次へ | 前へ→

【33749】Re:条件によってセルの連結を変えたいのです...
回答  Statis  - 06/1/19(木) 21:15 -

引用なし
パスワード
   こんばんは

一度、試してみてください。
(べた書きですが)

Sub セル統合()
Dim i As Long, Ch As Boolean, Sp, Sp1, dd, Da As String, Da1 As String
Dim g As Long, w As Long, k As Long, m As Long, o As Long, q As Long
Dim s As Long, u As Long, Co As Long, ii As Long

For i = 8 To 77
  Ch = True
  g = Cells(i, 7).Value
  w = Cells(i, 10).Value
  k = Cells(i, 11).Value
  m = Cells(i, 13).Value
  o = Cells(i, 15).Value
  q = Cells(i, 17).Value
  s = Cells(i, 19).Value
  u = Cells(i, 21).Value
  Select Case Cells(i, 5).Value
      Case "A"
        Da = "S/_,_M/_,_L/_,_O/_,_XO/_,"
        Da1 = g & "_" & w & "_" & k & "_" & m & "_" & o
      Case "B"
        Da = "M/_,_L/_,_O/_,"
        Da1 = w & "_" & k & "_" & m
      Case "C"
        Da = "フリー/"
        Da1 = q
        Ch = False
      Case "D"
        Da = "25-27cm/"
        Da1 = s
        Ch = False
      Case "E"
        Da = "サイズなし/"
        Da1 = u
        Ch = False
      Case "F"
        Da = "S/_,_M/_,_L/_,_O/_,"
        Da1 = g & "_" & w & "_" & k & "_" & m
  End Select
  If Ch = False Then
    If Da1 <> 0 Then
      Cells(i, 24) = Da & Da1
    End If
  Else
    Sp = Split(Da, "_")
    Sp1 = Split(Da1, "_")
    Co = 0
    For ii = 0 To UBound(Sp1)
      If Sp1(ii) <> "0" Then
       dd = dd & Sp(ii + Co) & Sp1(ii) & Sp(ii + Co + 1)
       Co = Co + 1
      End If
    Next ii
    Cells(i, 24) = dd
  End If
  Erase Sp: Erase Sp1: Da = "": Da1 = "": dd = ""
Next i

End Sub

0 hits

【33742】条件によってセルの連結を変えたいのです... さちきょん 06/1/19(木) 19:31 質問
【33743】Re:条件によってセルの連結を変えたいので... Statis 06/1/19(木) 19:43 発言
【33745】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 20:12 発言
【33747】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 20:29 発言
【33749】Re:条件によってセルの連結を変えたいので... Statis 06/1/19(木) 21:15 回答
【33750】Re:条件によってセルの連結を変えたいので... Statis 06/1/19(木) 21:24 発言
【33752】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 21:30 発言
【33754】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 21:44 発言
【33755】Re:条件によってセルの連結を変えたいので... こたつねこ 06/1/19(木) 21:46 回答
【33757】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 21:57 発言
【33758】Re:条件によってセルの連結を変えたいので... こたつねこ 06/1/19(木) 22:03 回答
【33759】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 22:14 発言
【33760】Re:条件によってセルの連結を変えたいので... こたつねこ 06/1/19(木) 22:28 発言
【33763】Re:条件によってセルの連結を変えたいので... さちきょん 06/1/19(木) 22:51 お礼

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