| 投稿日 | ： 2004/01/06(Tue) 16:49 |
| 投稿者 | ： ak |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: 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
> 上記のように指定してやれば、セルに値が入ると思います。
こんにちは。
今回の例だと上手く動くと思いますが例えば３つセルが結合されている時、
間に結合されていないセルがあった時はどうするのでしょうか？
上記サンプルでは流用できませんよね。
気になったもので気分を悪くしたらすみません。