|
▼ハト さん:
おはようございます。早速のご回答ありがとうございます。
>ソースコードを見てみないと正しく判断できないと思いますが
については、移動ボタンの関係しか作成していない状態です。以下になります。
仕組みについては、1の行の各セルはUserformの各コントロールのコントロールソースに割り当て、
データ窓の役目を、移動の際は2の行以降をデータ用とし、カウント値に従いその行を1の行
へコピペ(交換)するだけです。
Private Sub upbutton_Click()
'check characteristic data nothing
If Range("a1").Value = "" Then
MsgBox "特性名称の設定がされていませんので、項目移動できません" & vbCr & "この項目設定は必須です。"
Exit Sub
End If
'sub routin1
ido1
'new line no set
Frame6.Tag = Frame6.Tag + 1
'sub routin2
ido2
End Sub
Private Sub downbutton_Click()
'check action 0-1
If Frame6.Tag = 0 Then Exit Sub
'check characteristic data nothing
If Range("a1").Value = "" Then
MsgBox "特性名称の設定がされていませんので、項目移動できません" & vbCr & "この項目設定は必須です。"
Exit Sub
End If
'subroution1
ido1
'new line no set
Frame6.Tag = Frame6.Tag - 1
'sub routin2
ido2
End Sub
Private Sub ido1()
'Copy edit data area to clip borad
Range("A1:AQ1").Select
Selection.Copy
'paste to old location(=.tag)
Cells(4 + Frame6.Tag, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Rows("1:1").Select
Selection.ClearContents
Range("A1").Select
End Sub
Private Sub ido2()
'set next location
Cells(4 + Frame6.Tag, 1).Select
'check and set to new line data or this line no data
If ActiveCell.Value = "" Then
Range("A2:AQ2").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Else
Range(Cells(4 + Frame6.Tag, 1), Cells(4 + Frame6.Tag, 43)).Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Range("a1").Activate
'set line no
Frame6.Caption = "Inspection Item No." & Frame6.Tag + 1
End Sub
>>データ反映後の表示とセル内容がtrueやfalseになってしまいます。
>これからすると、データの反映、セルへの反映時に何か別の値をセットしているように思えます。
については、Userformにコントロールを配置しコントロールソースを設定したのみなので、思い当たる
ふしがありません。あとはシートの何かの設定が反映されるのでしょうか?
ご回答お願いします。
|
|