| |
▼ハト さん：
おはようございます。早速のご回答ありがとうございます。
>ソースコードを見てみないと正しく判断できないと思いますが
については、移動ﾎﾞﾀﾝの関係しか作成していない状態です。以下になります。
仕組みについては、１の行の各セルはUserformの各ｺﾝﾄﾛｰﾙのｺﾝﾄﾛｰﾙｿｰｽに割り当て、
ﾃﾞｰﾀ窓の役目を、移動の際は２の行以降をﾃﾞｰﾀ用とし、ｶｳﾝﾄ値に従いその行を１の行
へｺﾋﾟﾍﾟ（交換）するだけです。
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にｺﾝﾄﾛｰﾙを配置しｺﾝﾄﾛｰﾙｿｰｽを設定したのみなので、思い当たる
ふしがありません。あとはｼｰﾄの何かの設定が反映されるのでしょうか？
ご回答お願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
