- ベストアンサー
VBAの書き方
minato_airの回答
VBAですよね？ でしたら、 Sub test() Set sh = Sheets("Sheet1") If sh.Range("A1") = "" Then sh.Range("A1") = " """" " Else sh.Range("A1") = "OK" End If End Sub で出来ると思います。 やってみてください。 >sh.Range("A1") = " """" " >= " """" " ここが注意点です。 大外の" " が、文字列の設定 中の""が\"と同じ原理です。 ""を二つ合わせることで、文字として"を認識させる。 ということになります。
関連するQ&A
- VBAマクロの記述を教えてください m(__)m 娘から聞かれたのですが主婦の私にはわかりません
VBAマクロの宿題です。どうもエクセルのことのようですが、それ以上は私にはわからず困っています。 A B C D E １ ○ × ○ × ○ ２ ５ ５ ３ １２ １２ ４ ８ ８ ５ １５ １５ ６ ３１ ３１ ７ ４ ４ ８ ３ ３ ９ ８７ ８７ 10 １８ １８ 11 １８３ ８７ 以上がエクセルのシートだと見てください。 準備：A1セルからE1セルに○あるいは×を入力する。 A2セルからE10のセルに適当な２桁の数値を入力する。 問題：１行目が○なら11行目に２行目から10行目までの 合計を計算・表示する。 １行目が×なら11行目に２行目から10行目までの 最大値を表示する。 ヒント：文字のIF文 プログラム上で文字を扱う場合、ダブル・クォーテー ションで文字をはさむ。 IF Cells（ 、 ）＝"○" Then プログラムの流れ | For | IF | For | Next | Else | For | Next | END IF | Next 以上です。もう何が何やらちんぷんかんぷんです。どなたか助けてください。
- ベストアンサー
- その他（学問・教育）
- エクセル(Excel2003)のIF関数について
Excelの数式初心者です。 IF関数でつまづいたので質問させていただきます。 SHEET2のセルA1に、 SHEET1のセルA1が○だったら1、それ以外だったら0を表示させたいです。 SHEET2のセルA1に、 =IF(SHEET1!A1=○,"1","0") と入れましたが、#NAME! とエラーが出てしまいました。 ○や×は認識してくれないということなのでしょうか？ 初歩的な質問かもしれませんが、どなたかご教示いただけますと助かります。 Excel2003を使用しております。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCELの条件付き書式で数式を空白と認識してくれる方法
EXCELの条件付き書式で例えばA1のセルに何か文字が入っていれば色を付けるというようにする場合は=A1<>""でOKだと思いますが、A1には既に数式が入力されている状態で、でも表示はされていない見かけは空白に見えるセルを空白と認識してくれる方法、数式はないでしょうか？
- 締切済み
- オフィス系ソフト
- VBAの変数をエクセルで表示
VBAで Dim num as Integer num = 1 のプログラムがあるとします。 このnumの変数をエクセルのセルで表示させたいのですが可能でしょうか？ （例） セル(A,1)に変数numの値を表示させたいのですが、 数式バーに ＝num と入力してもうまく表示されません。 無理なのでしょうか？
- ベストアンサー
- Visual Basic
- エクセル VBA
エクセルVBAで以下のようなデータがあります。 D列の文字列と右隣のE列の文字列の2つが入っているものをA列から探し、見つかったセルの上にセルを追加し、E列の右隣のF列に入っている文字列を代入したいです。 どのようなプログラムになりますか？
- 締切済み
- Visual Basic
- エクセルvba初心者です・・・
エクセルvba初心者です・・・ シート１にあるひとつのセルをコマンドボタンを押した時にそのセル内の文字列をシート２にかいていくようなプログラムをつくりたいです。 例えば シート１のセルに文字入力→”田中”→登録ボタンおす→シート２のセルA１にはいる シート１のセルに文字入力→”竹山”→登録ボタンおす→シート２のセルA２にはいる ・ ・ ・ というようになるコードわかる方いたら教えてください。おねがいします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセルＶＢＡについて質問です。ＶＢＡを初めて１カ月くらいなので、簡単
エクセルＶＢＡについて質問です。ＶＢＡを初めて１カ月くらいなので、簡単な質問かもしれませんが、よろしくお願いします。 Cells(1, 1).Value = "'1／" + TextBox1.Value 上のコードの"'1／"の部分で質問なのですが、例えばTextBox1.Value=2の場合、セルＡ１には「１／２」と表示されます。そしてこの「１／２」を数式として扱おうとするとエラー(#VALUE!)になります。その原因はセルＡ１をクリックすると、メニューとシートの間にある「fx」の右側の部分に「'１／２」と表示されているからだと思うのですが…。 これを数式として扱う何か良い方法はありませんか？シートを扱って解決するのではなくＶＢＡを扱って解決したいのですが…。
- ベストアンサー
- Visual Basic
- エクセルVBAで簡単に上付き文字を設定
エクセルで数式バーの文字を反転させてボタンをクリックすれば上付き文字になるようなコマンドボタンを作りたいのですが反転文字の認識のさせ方がよくわかりません。VBAで数式バーの反転文字の認識のしかたを教えてください。（エクセル2003を使っています。）設定したい文字が多いため ctrl+1 alt+b よりもボタンでポチッと設定したいのです。
- ベストアンサー
- その他(業務ソフトウェア)
- VBA 文字列をキレイにしたいです。
エクセルVBAでツールを作成しようとしています。 他のソフトで作成したデータなども関連するため、セルの中の文字列の先頭にシングルコーテーションが付加されてしまうケースがあるのですが、これが不要なので外したいと思います。 方法を検索した結果、以下の例を見つけました。 ---- 「'」を削除したいセルを選択してマクロを実行すると、 すべてのセルで先頭の「'」を削除します。 Sub Sample() Dim a As Range For Each a In Selection If Not a.HasFormula Then a = a Next a End Sub ---- 上記の方法だとセルを対象にしていると思うのですが、 プログラム上でセルの中身を既にstring型の変数に入れているのでその変数を用いて実現したいと考えていますが、書き換え方が分かりませんのでご教授いただけたらと思います。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
お礼
minato_air,tamacky,finneganswake さん ありがとうございます！！！！ 即刻利用させてもらいました。 またお願いするときはよろしくお願いいたします。 代表してminato_airさんの所に書き込みさせていただきました。