| 投稿日 | ： 2004/01/06(Tue) 16:24 |
| 投稿者 | ： でっち |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: VBからのExcel操作法について |
> Dim i As Long, n As Long
> For i = 1 To 10
> n = n + 1
> xlSheet.Cells(1, i).Value = "TEST"
> If xlSheet.Cells(1, i).Value = "TEST" Then
> xlSheet.Cells(1, i).Value = Chr(n + 64)
> Else
> n = n - 1
> End If
> Next i
>
> i をX方向に変えて、試させて頂きました。
> セルを結合していない場合は綺麗に代入されるのですが、
> (1, 1)と(2，1)を結合、(3,1)と(4,1)・(5,1)と(6,1)のように二つずつ結合したときに実行すると
> 結合されたセルにはＡ，Ｂ，Ｃ，Ｄ，Ｅまでしか代入されませんでした。
>
とりあえず、こっちのほうだけ。
mamiさんのコードを見るとセルを結合したときは結合セルの
先頭セルに値を入れなければならないようですので、
For i = 1 To 10
n = n + 1
xlSheet.Cells(1, 2 * i - 1).Value = "TEST"
If xlSheet.Cells(1, 2 * i - 1).Value = "TEST" Then
xlSheet.Cells(1, 2 * i - 1).Value = Chr(n + 64)
End If
Next i
上記のように指定してやれば、セルに値が入ると思います。