1

Sheets("#sampleTracker") から Sheets("#MESSAGEBOARD") にセル値をコピーしようとしています。

したがって、datedatax、namedatax、numberdatax はすべて #sampleTracker シートから取得されます。次に #MESSAGEBOARD シートに移動し、リストの下部にデータを入力します。

datedatax は機能していますが、namedatax と numberdatax が表示されません。

助言がありますか？

datedatax = ActiveCell.Value
Dim namedatax As String
Dim numberdatax As String
numberdatax = Sheets("#SampleTracker").Cells(9, ActiveCell.Row).Value
namedatax = Sheets("#SampleTracker").Cells(10, ActiveCell.Row).Value
styledatax = numberdatax + "_" & namedatax


Sheets("#MESSAGEBOARD").Select
Range("C2").Select
Set EmptyCell = Cells(100, ActiveCell.Column) 'select last cell pt1
EmptyCell.End(xlUp).Select ' select last cell in column pt2
ActiveCell.Offset(1, 0).Select ' select last cell in column pt3
ActiveCell.Value = datedatax - Date 'advise how many days till due date
ActiveCell.Offset(0, 1).Select
ActiveCell = "sample " & styledatax

Sheets("#SampleTracker").Select
4

1 に答える 1

4

コードの最初の部分で行と列が逆になっています。

それ.Cells(row,column)はあなたが持っているように見えます.Cells(column,row)

于 2012-06-19T05:00:04.630 に答える