Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


41579 / 76735 ←次へ | 前へ→

【40235】Re:テキストボックスのデータ反映不具合
回答  アーバン  - 06/7/10(月) 8:44 -

引用なし
パスワード
   ▼ハト さん:
おはようございます。早速のご回答ありがとうございます。

>ソースコードを見てみないと正しく判断できないと思いますが
については、移動ボタンの関係しか作成していない状態です。以下になります。
仕組みについては、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にコントロールを配置しコントロールソースを設定したのみなので、思い当たる
ふしがありません。あとはシートの何かの設定が反映されるのでしょうか?
ご回答お願いします。

0 hits

【40123】テキストボックスのデータ反映不具合 アーバン 06/7/7(金) 10:55 質問
【40133】Re:テキストボックスのデータ反映不具合 ハト 06/7/7(金) 13:06 回答
【40235】Re:テキストボックスのデータ反映不具合 アーバン 06/7/10(月) 8:44 回答
【40278】Re:テキストボックスのデータ反映不具合 ハト 06/7/10(月) 15:24 回答
【40286】Re:テキストボックスのデータ反映不具合 アーバン 06/7/10(月) 16:38 質問
【40295】Re:テキストボックスのデータ反映不具合 ハト 06/7/10(月) 18:02 発言
【40296】Re:テキストボックスのデータ反映不具合 ハト 06/7/10(月) 19:04 発言
【40307】Re:テキストボックスのデータ反映不具合 アーバン 06/7/11(火) 10:40 お礼
【40360】Re:テキストボックスのデータ反映不具合 アーバン 06/7/12(水) 15:03 お礼
【40366】Re:テキストボックスのデータ反映不具合 ハト 06/7/12(水) 16:07 発言

41579 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free