| |
独学で適当に作っているのでお恥ずかしいのですが…
以下の様なﾏｸﾛを作成してみました。
1.A1〜A10のｾﾙに1〜10の数字を入力。
2.ｾﾙB〜D、E〜G、H〜Jは"横方向に結合"されており、
3.例えばB1のｾﾙを選択すると、そのｾﾙには｢1｣が入力され、E4のｾﾙを選択すると、
そのｾﾙには｢4｣が入力されます。
4.更にH4のｾﾙを選択すると、E4のｾﾙに入力されていた｢4｣がH4のｾﾙに移動する。
…という感じの処理をさせようとしています。
頑張って以下のﾏｸﾛを書いてみたのですが、このﾏｸﾛでは、
□例えばE2:E5(ｾﾙが結合されているので実際にはE2:G5?)のｾﾙを選択した時、
選択ｾﾙの全てに｢2｣が入力されてしまいます。
これをそれぞれ｢2｣〜｢5｣を入力、又はE2ｾﾙに｢2｣のみ入力し、他のｾﾙは変化
させないという風にするには、どうすれば良いでしょうか？
又、もし宜しければ、これ以外にもっとｽﾏｰﾄ(短い)なﾏｸﾛがあればご教授
頂ければ…等と思います。
※ｾﾙが結合されていなければうまく動作するのですが、どうしても結合された
状態で処理しなければならず、質問しております。
-------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, b, i, j
With Target
For i = 1 To 10
If ActiveCell.Address = "$B$" & i Then
a = "$B$": b = 3
ElseIf ActiveCell.Address = "$E$" & i Then
a = "$E$": b = 6
ElseIf ActiveCell.Address = "$H$" & i Then
a = "$H$": b = 9
End If
For j = 5 To 8 Step 3
If Cells(i, j) <> "" Then Exit For
Next j
If b = j Then End
If ActiveCell.Address = a & i Then
If Cells(i, j).Value <> "" Then
.Value = Cells(i, j).Value
Else
.Value = Cells(i, 1).Value: End
End If
If ActiveCell.Address <> "$B$" & i Then
Cells(i, j).FormulaR1C1 = ""
End If
Exit For
End If
Next i
End With
End Sub
|
|
ＶＢＡ初心者
- 08/5/9(金) 8:04 -
