![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.4ベストアンサー
- 回答日時:
onlyromです。
>Next R
>End With
>End Sub
●>.Range("B" & LastRow).Value = Worksheets("Sheet1").Range("A6").Value
>{End Sub,End Function または End Property 以降には、コメントが記述できます。}と表示され
●のところでそのエラーが出るのは当然のことです。
●の1行上が、End Sub になってますからそこでプログラムが終了になりますから、●以下にはコメントしか書けません。
当方が回答したコードには、●のコードはありませんよね。
●のコードは一体、何の為にあるのでしょうか。
回答したコードは先に質問者がお礼の欄に書いたコードの代わりですから、
質問者のコードは全てボツにして、当方のコードのみで実行してください。
ありがとうございました。何度もすいませんでした。実施しましたがA6以降の文字が全て白紙になってしまいました。自分の説明不足です。そこで良かったら、pop2003dayo@
でヤフーの@yahoo.co.jpを後ろにつけメールに返事を書いて欲しいです。なぜかと言いますと実際のエクセルを見て欲しいのです。本当に完成させたいと思っております。どうかお願いします。
No.3
- 回答日時:
またまた登場、onlyromです。
まだ不明の点が多いのですが、お礼の蘭に提示されたコードのみに修正を加えてみました。
'---------------------------------------------
Sub 入力()
Dim R As Long
Dim Clm As Long
Dim LastRow As Long
With Worksheets("Sheet2")
LastRow = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("A" & LastRow).Value = LastRow - 1
Clm = 1
For R = 6 To 21
If (R >= 6 And R <= 10) Or R = 12 Or R = 13 _
Or R = 15 Or R = 16 Or R = 19 Or R = 21 Then
If Sheets("Sheet1").Cells(R, "A").Value <> "" Then
Clm = Clm + 1
.Cells(LastRow, Clm) = Sheets("Sheet1").Cells(R, "A").Value
End If
End If
Next R
End With
End Sub
'-----------------------------------------------
お試しください。
早速のお返事ありがとうございます。実際に記述しました。しかし
下の(”A6”)に色が変わりエラー表示されます。内容は、{End Sub,End Function または End Property 以降には、コメントが記述できます。}と表示され、エラーの回避ができません。何が原因なのでしょうか?本当にすいません、教えてください。
::
Next R
End With
End Sub
.Range("B" & LastRow).Value = Worksheets("Sheet1").Range("A6").Value
No.2
- 回答日時:
>是非、教えてください。
頑張っている人にできる限りのことをしてあげたいとは思いますが、
いかんせん、情報不足ゆえ回答のしようがありません。
>sheet1に関してはチェックボックスの横にコンボボックスを作成しています。
>チェックが付いていたら、trueとしてコンボボックスに表示されたものを入力ボタンで、sheet2に記録させるようにしています。
Sheet1には、CheckBox、ComboBox、CommandButtonがそれぞれ一つしかないのですか?
そして、CheckBoxがOnの時、CommandButtonをクリックして、ComboBoxで選択されてる項目をSheet2に転記させると書いてありますが、
なら、質問の
>項目がありすぎてチェックしていない時は空白が目立ち使いづらい
>空白なら左に詰めて記録できるようにしたーいです
これは矛盾するのではありませんか?
なぜなら、
>チェックが付いていたら、trueとしてコンボボックスに表示されたものを入力ボタンで、sheet2に記録させるようにしています。
このように「チェックが付いていたら」即ち、「チェックがされていたら」、記録させるようにしているわけですから。
そこら辺りのことを実際に沿った形で、セルアドレスも含めもっと詳しく提示すべきだと考えます。
乗りかかった船ですので解決までお付き合いしませう。
ありがとうございます。本当に感謝しております。自分もマクロの勉強を始めたばっかりで非常に困っています。仕事で使いたいと思い勉強を始めました。最初はマクロは一つで対応していたのですが、やりたい事がいっぱいあったのでこの間みたいな、フォームで簡略化したかったのですがもう少し勉強してからしようと思っています。是非最後までお付き合いしてください。
Sheet1には、CheckBox、ComboBox、CommandButtonはいっぱいあります。下記が実際の記述です。チェックする項目は14個の内1個だけでいいのですが、あまりにも空白が多く困っています。だから、フォームを作って選択出来るように作りたかったのですが・・残念です。是非お願いします。
Sub 入力()
Dim LastRow As Long
With Worksheets("Sheet2")
LastRow = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("A" & LastRow).Value = LastRow - 1
.Range("B" & LastRow).Value = Worksheets("Sheet1").Range("A6").Value
.Range("C" & LastRow).Value = Worksheets("Sheet1").Range("A7").Value
.Range("D" & LastRow).Value = Worksheets("Sheet1").Range("A8").Value
.Range("E" & LastRow).Value = Worksheets("Sheet1").Range("A9").Value
.Range("F" & LastRow).Value = Worksheets("Sheet1").Range("A10").Value
.Range("G" & LastRow).Value = Worksheets("Sheet1").Range("A12").Value
.Range("H" & LastRow).Value = Worksheets("Sheet1").Range("A13").Value
.Range("I" & LastRow).Value = Worksheets("Sheet1").Range("A15").Value
.Range("J" & LastRow).Value = Worksheets("Sheet1").Range("A16").Value
.Range("K" & LastRow).Value = Worksheets("Sheet1").Range("A19").Value
.Range("L" & LastRow).Value = Worksheets("Sheet1").Range("A21").Value
No.1
- 回答日時:
チェック式、とはどんな式?????
せめてSheet1のレイアウトぐらいは提示しないと。。
それから、どうでもいいことですが、
http://oshiete1.goo.ne.jp/qa3315484.html
これは解決済み????
ひとつずつ解決した方がベターなのでは?
アドバイスありがとうございます。sheet1に関してはチェックボックスの横にコンボボックスを作成しています。チェックが付いていたら、trueとしてコンボボックスに表示されたものを入力ボタンで、sheet2に記録させるようにしています。
是非、教えてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 会計ソフト・業務用ソフト VBA 記録簿の行間を空けないコードを教えて欲しい。 5 2023/07/10 19:29
- Excel(エクセル) エクセルの表でダブりを解消する方法を、教えてください。 5 2023/04/12 12:11
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) 特定文字(数字)で行挿入、挿入された行で合計したい 2 2023/03/13 14:30
- ラジコン・ミニ四駆 ドローン登録申請を行い、申請手数料を支払うところまで来ましたが、機体情報の機体の登録記号の欄が空白に 1 2022/05/18 20:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
- Excel(エクセル) スプレッドシートのGASでチェックボックスのチェック全てを外したい 1 2022/09/13 17:09
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
LINEのこの空白ってどんな意味...
-
Wordの差し込み印刷で空白行が...
-
Word ○(まる)で表示される空白
-
INDEXとMATCH関数で#N/Aが出る...
-
Excel計算式が入ってるセルを空...
-
エクセル VBA 空白を無くしたい
-
emacs で指定リージョンの行頭...
-
データがとびとびの線グラフ
-
アクセスのクエリで空白を0と...
-
マクロ 空白セルまで繰り返す
-
PowerPointの表内のカンマ
-
EXCELでタイトル行と一番下の行...
-
【VBA】PDF出力に任意のファイ...
-
エクセルでleft関数の結果が表...
-
Googleスプレッドシートでの範...
-
エクセルでエンターを押すと隣...
-
エクセルの計算式でコンマを付...
-
エクセルでセル内改行の1行目...
-
EXCEL 連動したドロップダウン...
-
16桁以上の「0」に変換されてし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
LINEのこの空白ってどんな意味...
-
Wordの差し込み印刷で空白行が...
-
INDEXとMATCH関数で#N/Aが出る...
-
Word ○(まる)で表示される空白
-
エクセルでフッターに空白を入れる
-
Excel計算式が入ってるセルを空...
-
bashでの空白と空文字の判断
-
マクロ 空白セルまで繰り返す
-
「 - 」と「 _ 」 の違い
-
latexで、行の先頭に空白を入れ...
-
空白行があると #DIV/0なる?...
-
VBA ""が認識されないのはなぜ...
-
エクセルで1つでも×か空白があ...
-
ちょっと特殊な連続印刷のマク...
-
メモ帳のスクロールバーを変更...
-
エクセルマクロ、特定の日付を...
-
アクセスのクエリで空白を0と...
-
VBAでの配列について
-
PDFを開くと空白のページが追加...
-
リンク貼り付けで空白セルが0表...
おすすめ情報