ExcelのVBAで以下の通り打ち込んだのですが、「行ラベルが定義されていません」となってしまいコンパイルエラーとなってしまいます。
急いでおります!どなたか助けてください!お願いいたします。
Sub nibun()
Const EPS As Single = 0.000001
Dim f As Single, x As Single, a As Single
Dim b As Single, xm As Single, y As Single
a = 0
b = 2
y = Equn01(a)
label:
xm = (a + b) / 2
If (y * Equn01(xm) > 0) Then
a = xm
Else
b = xm
End If
If (b - a > EPS) Then
GoTo label1
Else
MsgBox Format(xm, "x= 0.000000")
End If
End Sub
Function Equn01(x)
Equn01 = x * (x * x - 1) - 1
End Function
No.1ベストアンサー
- 回答日時:
単純な間違いをしているだけでは。
ラベル名が「label」と書いているのに、GoToステートメントで指定を
しているラベル名が「 label1」と余計な「1」を追加していますから。
http://excelvba.pc-users.net/fol6/6_7.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) パーソナルXLSBのfuctionを呼び出すと「Functionが定義されていません」のエラーになる 2 2022/08/22 22:51
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
On ErrorでエラーNoが0
Visual Basic(VBA)
-
-
4
Accessで今日から5日後
その他(データベース)
-
5
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
6
VBA(エクセル)のコンパイルエラー
Excel(エクセル)
-
7
初歩的な事だと思います。 Sub または Function が定義されていません。
Visual Basic(VBA)
-
8
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
9
VBAで別モジュールへの変数の受け渡し方法
Visual Basic(VBA)
-
10
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
11
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
12
実行時エラー3131 FROM 句の構文エラーです について
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一点一葉とはどんな意味ですか?
-
エクセル宛名ラベルが重複する
-
ラベルの差込印刷で2ページ目以...
-
ワードかエクセルで、KOKU...
-
ワード差し込み印刷:作成した...
-
インデックスに印刷する方法
-
DVDに紙製のラベルを貼りたいの...
-
ラベル屋さんでひとつひとつの...
-
ゆうパックのお問い合わせ小包...
-
VBA初心者です。コンパイルエラ...
-
GIMPでDVDラベルを印刷するには
-
CDの曲名のテンプレートを作り...
-
Accessのレポートで複数列の見...
-
ピボットテーブルのΣ値のタイト...
-
Wordで作った宛名ラベルを印刷...
-
<excel> 差し込み印刷ヘッダー設定
-
EXCEL:円グラフで、データラベ...
-
Wordで差し込み印刷 紙詰まり...
-
フラットファイルの背表紙部分...
-
ラベル印刷ソフトで連番を一度...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードかエクセルで、KOKU...
-
一点一葉とはどんな意味ですか?
-
エクセル宛名ラベルが重複する
-
インデックスに印刷する方法
-
ラベルの差込印刷で2ページ目以...
-
フラットファイルの背表紙部分...
-
エクセルでマイタックラベルへ...
-
ピボットテーブルのΣ値のタイト...
-
筆王
-
ワード差込印刷 縦書き・横書き...
-
DVDのタイトルを変更したい
-
ワード差し込み印刷:作成した...
-
Wordで作った宛名ラベルを印刷...
-
ワードで宛名ラベルのフォント...
-
CDやDVDの表面へのラベル...
-
Excel VBAのフォーム_ラベルの...
-
wordでラベル差込印刷時に右端...
-
ラベル印刷ソフトで連番を一度...
-
宛名ラベル 2枚目以降が表示、...
-
ラベル屋さんでひとつひとつの...
おすすめ情報