計算ソフトをインストールして実行しようとしたところ
「実行時エラー 1004 TextBoxクラスのCharactersプロパティを取得できません」
と言うエラーメッセージが出て実行できませんでした.
ソフトをくれた友人は中国人で,わたしのPCの言語サポートが日本語だからうまくいかないと言われ,言語を英語(US)に変更したのですが,エラーメッセージが文字化けしただけで解決できませんでした…
ちなみにExcel2007です.
普段プログラミングをしません…解決策をお願いします!
No.2
- 回答日時:
>「実行時エラー 1004 TextBoxクラスのCharactersプロパティを取得できません」
エラーメッセージだけでは情報不足です。
>計算ソフトをインストールして...
という事は、そのソースコードは公開されていないのでしょうか。
エラーが出るコードは提示できないですか?
提示できれば、同じ環境で検証してみる事は可能なのでしょうけど。
中国語サポートの問題なのか、2007バージョンの問題なのか、そちらで確かめる事は可能ですか?
xl2003の中国語サポートの有無の違いでエラーが出るようなら環境を変えるしかないような気もします。
お使いのPCには中国語表示サポートは設定できないのでしょうか。
(コントロールパネル-地域と言語のオプション、もしくはIMEから? すみませんこの辺りは弱いです)
この回答への補足
遅くなってすみません…
ソフトを発行しているのはアメリカなので,中国語サポートでなきゃ,というわけではないと思うのです.中国人の友人の話では英語サポートでもOKということだったので地域と言語のオプションから英語サポートに変更したのですがだめでした.
ソースコードは確認してませんでしたので見てみる価値がありそうです.
結局,結果の数値が保存されないだけで,エラーメッセージの後に計算結果が表れていることがわかったので今はそれを書き写すことで対応してます…ご回答ありがとうございました.
No.1ベストアンサー
- 回答日時:
(1)セル
シートのセルに対してはこういう風に使えます。
Sub test01()
Cells(1, 1).Characters(1, 2).Font.ColorIndex = 3
End Sub
ーーー
(2)シェイプ
Sub test3()
Dim aaa As Shape
Dim wk As String
On Error Resume Next
Set aaa = ActiveSheet.Shapes(1)
wk = aaa.TextFrame.Characters(Start:=2, Length:=4).Text
MsgBox wk
Set ww = aaa.TextFrame.Characters(Start:=2, Length:=4)
ww.Font.ColorIndex = 3
End Sub
もできます。
(3)エクセルのテキストボックス
しかしエクセルのコントロールツールボックスのTextboxに対しては、Charactersプロパティは使えないと思います。
不統一な気がしますが。
TextBox1.XXX.Characrers()のXXXの必要な問題でもないようです。
http://en.allexperts.com/q/Excel-1059/VBA-Textbo …のAnser参照。
ーー
http://july.homedns.org/varietywiki/index.php?%A …
には出来るような記述が有るが走りません。
Sub test03()
With ThisWorkbook.Sheets("Sheet1").TextBoxes("TextBox2").Characters(Start:=3).Font
.Name = "MS P明朝"
.Size = 20
End With
End Sub
Lengh:=2など入れても同じです。
こういうのはオブジェクト単位にプロパティが設定されているかどうかで決るので、やってみるほか無いのではないでしょうか。
この回答への補足
回答ありがとうございます.
(1),(2)マクロ実行してみました.赤くなりました.
ソフトはセルの数値から三次元グラフを作成するもので,おそらく結果のパラメータがテキストボックスで表示されるのに,そこに使用する文字列のプロパティが取得できない…?と勝手に想像しています.
>オブジェクト単位にプロパティが設定されているかどうかで決るので
設定されていないとすると,新たに設定する必要がある(できる?)ということでしょうか.友人のPC(Windows2003,中国語サポート)では計算できるのでやっぱり日本語サポートに問題あり…??
参考URLも質問を投稿する前に検索で見ていたのですが,よくわかりません…ソフト自体はアドインから計算を実行するのですが,プロパティの設定をマクロで指定できるということでしょうか??
せっかくいただいた回答を消化できてなくてすみません….
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- SQL Server [SQLServer] テーブル名からカラム名を取得する 1 2022/08/23 21:20
- Windows 10 Windows10で、急に「IMEが無効です」となり日本語入力ができなくなりました。 6 2023/02/15 06:46
- C言語・C++・C# visual studio 2019 についての質問です 1 2022/09/21 09:58
- Android(アンドロイド) 海外のAndroid 端末の場合、日本語全角は、どう表示されるのでしょうか? 1 2022/10/02 21:16
- その他(社会・学校・職場) 平均的日本人の頭は悪くはないはずですし、学校で習う内容が幼稚というわけでもないのに、世間には幼稚な大 7 2023/04/05 20:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- その他(プログラミング・Web制作) ゲームを日本語化しようとすると文字化けしてしまいます。 2 2022/08/19 15:36
- アジア 「なぜ日本人は英語を話せないのか」というよくある疑問に対する 10 2022/05/15 00:52
- 中学校 理科だけが極端に苦手 5 2022/09/10 14:18
- 中学校 2学期実力テストの国語の勉強法 1 2022/08/01 00:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルエラー13型が一致しま...
-
実行時エラー 438になった時の...
-
ExcelVBA Range クラスの Page...
-
エクセルVBAで以下のようなコー...
-
プロシージャ名の取得
-
なぜこんな初歩的なVBAのIf文で...
-
エラー1004 PDFの保存ができま...
-
VBAがブレークモードになっ...
-
ADODB.Streamを使用してUTF-8を...
-
INSERT INTOステートメント構文...
-
Outlook.ApplicationをCreateOb...
-
実行時エラー -'-2147417848
-
【Excel VBA】マクロをボタンに...
-
VB6 エラー:438 (InputBoxに値)
-
Invalid procedure call or arg...
-
Application.ActiveInspectorで...
-
vbaのvlookup関数エラー原因を...
-
EXCEL VBAマクロ中断でデバッグ...
-
VBAのコードがエラーになっ...
-
VBA 別シートのセルから、文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
VBAがブレークモードになっ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
EXCEL VBAマクロ中断でデバッグ...
-
VBSで変数の宣言はできないので...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
AccessVBAでExcelを起動し、罫...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
Application.ActiveInspectorで...
おすすめ情報