Excel VBA質問箱 IV

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

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


9827 / 76736 ←次へ | 前へ→

【72466】Re:VBA「ラジオボタン・チェックボックス」の値の転記について
回答  とど  - 12/8/13(月) 17:27 -

引用なし
パスワード
   ▼UO3 さん:

ご連絡ありがとうございます。


ご連絡ありがとうございます。
殆どコピーして引用致します。
ただ、個人的な事で申し訳ありませんが、名前(オブジェクト?名)については、
一部、代替させて頂きました事をご理解頂ければ幸いです。


***************************************************************
Private Sub 反映転記_Click()
Dim myrow As Long

  With Sheets("List")

    If WorksheetFunction.CountA(Rows(2)) = 0 Then
      myrow = 2
    Else
      myrow = .UsedRange.Cells(.UsedRange.Cells.Count).Row + 1
    End If
'----------------------------------------
.Cells(myrow, 1).Value = 番号.Value
.Cells(myrow, 2).Value = 氏名.Value
.Cells(myrow, 3).Value = 氏名_カナ.Value
.Cells(myrow, 4).Value = 組合.Value
.Cells(myrow, 5).Value = 代表.Value
.Cells(myrow, 6).Value = 郵便番号.Value
.Cells(myrow, 7).Value = 住所1.Value
.Cells(myrow, 8).Value = 住所2.Value
.Cells(myrow, 9).Value = 電話番号.Value
.Cells(myrow, 10).Value = ファックス番号.Value
.Cells(myrow, 11).Value = メールアドレス.Value
.Cells(myrow, 12).Value = 内線番号1.Value
.Cells(myrow, 13).Value = 内線番号12.Value

If 平日.Value Then .Cells(myrow, 14).Value = 平日.Caption
If 土日祝日.Value Then .Cells(myrow, 15).Value = 土日祝日.Caption
If 不明.Value Then .Cells(myrow, 16).Value = 不明.Caption

.Cells(myrow, 17).Value = 曜日メモ.Value

If 電話連絡.Value Then .Cells(myrow, 18).Value = 電話連絡.Caption
If ファックス.Value Then .Cells(myrow, 19).Value = ファックス.Caption
If メール.Value Then .Cells(myrow, 20).Value = メール.Caption


If アカ.Value Then .Cells(myrow, 21).Value = アカ.Caption
If ミドリ.Value Then .Cells(myrow, 22).Value = ミドリ.Caption
If シロ.Value Then .Cells(myrow, 23).Value = シロ.Caption
If キイロ.Value Then .Cells(myrow, 24).Value = キイロ.Caption
If 黒.Value Then .Cells(myrow, 25).Value = 黒.Caption

.Cells(myrow, 25).Value = その他_備考.Value

End With
End Sub
***************************************************************
また、今回手持ちの書籍を確認しておりましたが、「全角カタカナ」を
「半角カタカナ」に変換するスクリプトを見つけました。

  myStr = "アイウ"
  Range("A5").Value = myStr & "→半角に変換"
  Range("B5").Value = StrConv(myStr, vbNarrow)

これを例えば

If アカ.Value Then .Cells(myrow, 21).Value = アカ.Caption

の部分に利用したいなどの場合はいかがなものなのでしょうか。

度々恐縮ですが、ご連絡お待ちしております。

0 hits

【72448】VBA「ラジオボタン・チェックボックス」の値の転記について とど 12/8/12(日) 23:40 質問
【72449】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 10:09 発言
【72450】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 11:24 質問
【72451】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 11:30 質問
【72453】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 13:35 発言
【72459】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 15:23 お礼
【72460】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 16:27 発言
【72463】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 16:55 回答
【72464】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 17:10 発言
【72466】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 17:27 回答
【72470】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/13(月) 19:59 発言
【72471】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/13(月) 22:32 回答
【72472】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/14(火) 5:42 発言
【72473】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/14(火) 10:32 発言
【72475】Re:VBA「ラジオボタン・チェックボックス」... UO3 12/8/14(火) 11:32 発言
【72476】Re:VBA「ラジオボタン・チェックボックス」... とど 12/8/14(火) 12:00 お礼

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