- ベストアンサー
chrにする関数・数値を求めるには？
Sub aaa() Debug.Print Chr(65) End Sub で、Aが返ってきますが、 ＡをChr()で表すとどのような数値になるかはどうすれば求められますか？ Sub aaa() Debug.Print Chr("Ａ") End Sub のような感じで、数値の６５を返したいです。
- tlnadcmv
- お礼率100% (53/53)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
asc("A") です。
関連するQ&A
- Chr(10)とCHAR(10)は同じ意味ですか？
セルに直接 ="a" & CHAR(10) &"b" と入力するのと、 Sub a() ActiveCell.Value = "a" & Chr(10) & "b" End Sub とするのでは、同じ意味ですか？
- ベストアンサー
- オフィス系ソフト
- Chr関数であいうえお順に
Chr関数であいうえお順に文字をエクセルに書き出そうとしたけど、 単純にはいかないのですかね？ Sub test() Dim MyRow As Long Dim i As Long For MyRow = 1 To 51 Cells(MyRow, 1) = Chr(-32096 + i) i = i + 2 Next MyRow End Sub これを実行すると、濁点が入ったりするのですが、 綺麗に「あ～ん」まで取得する方法はありますか？ 複雑なコードを作るしかないのですかね？
- ベストアンサー
- その他MS Office製品
- InStr関数、InStrRev関数
Sub Sample() Debug.Print InStr(1, "abcde", "d") Debug.Print InStrRev("abcde", "d") End Sub どちらの関数も結果が４で、同じなのですが、InStrRevは２になるべきではないですか？ なぜ左から検索してるのでしょうか？
- ベストアンサー
- オフィス系ソフト
- DatePartを関数使うと、スペースがはいる
Sub test1() Debug.Print Format(Date, "m") End Sub Sub test2() Debug.Print DatePart("m", Date) End Sub 二つを実行すると、DatePartの場合は 戻り値の前にスペースが入ります。 「12」 「 12」 という結果になります。 なぜなのでしょうか？
- ベストアンサー
- その他MS Office製品
- ブレークポイントで止らない
下記のソースでaaaをウォッチウィンドウで内容確認したいです。 aaa = "2"の行にブレークポイントを設定し、ステップイン[F8]しました。 ブレークポイントで止らず完了してしましました。 何故でしょうか。どなたか教えて下さい＞＜ 環境はwindows xp sp2,access2000です。 Sub test() dim aaa aaa = "1" Debug.Print aaa aaa = "2" Debug.Print aaa aaa = "3" Debug.Print aaa End Sub
- ベストアンサー
- Visual Basic
- 「ぺ」って何？
エクセルVBAなのですが、半角にできない文字があったのにで調べてみたのですが よくわかりません。 Sub a() Debug.Print StrConv("ぺ", vbNarrow) End Sub をしても半角になりません。 でも Sub b() Debug.Print StrConv("ペ", vbNarrow) End Sub なら半角になります。 Sub a1() Debug.Print Asc("ぺ") End Sub Sub b2() Debug.Print Asc("ペ") End Sub のように文字コードを調べてみたのですが -32040 -31879 が返りました。 半角にできないほうの-32040 は、なんなのでしょうか？ カタカナではないのですか？
- ベストアンサー
- その他（プログラミング・開発）
- Function
Sub test1() Debug.Print 全角("aaa") End Sub Public Function 全角(mystr) mystr = StrConv(mystr, vbWide) End Function このVBAコードはどこがおかしいですか? 私の理想としては Public Function 全角(mystr) のmystrの中に半角の「aaa」が入り mystr = StrConv(mystr, vbWide) で全角の「aaa」になり その結果が Sub test1()に戻った時に Debug.Printに吐き出される予定だったのですが 何も表示されません。 関数(Function)を使うべきではないのでしょうか?
- ベストアンサー
- オフィス系ソフト
- InStr関数を使う際は
エクセルｖｂａなのですが、InStr関数を使う際は、どの比較モードを使えばいいのでしょうか？ Sub あ() Dim myStr As String myStr = "あいうえお" Debug.Print InStr(1, myStr, "い", vbBinaryCompare) Debug.Print InStr(1, myStr, "い", vbTextCompare) Debug.Print InStr(1, myStr, "い", vbUseCompareOption) 'エラーになる Debug.Print InStr(1, myStr, "い", vbDatabaseCompare) 'エラーになる End Sub vbBinaryCompareとvbTextCompareならエラーになりませんが この二つの違いが判りません。
- ベストアンサー
- Excel（エクセル）
- NowとNow（）とどちらを使った方が良いですか？
どちらも結果は同じでした。 Sub test1() Debug.Print Now End Sub Sub test2() Debug.Print Now() End Sub TechNet
- ベストアンサー
- オフィス系ソフト
- AddressとAddressLocal 違い
エクセルｖｂａなのですが Sub test01() Debug.Print Range("a1").Address Debug.Print Range("a1").AddressLocal End Sub この二つの違いは何ですか？ どちらも$A$1が返るのですが。 アドレスを取得したい場合、どちらを使った方がよろしいでしょうか？
- ベストアンサー
- Visual Basic
お礼
ascを使えばいいのですか！ ありがとうございました。