質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.48%

  • VBA

    2372questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1957questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

  • Access

    613questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Excel VBA UserFormでのエラーを解決したい(セルへ値の代入)

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 1,135

masayone

score 6

 **Excel VBA UserFormでのエラー**

UserFormを開く際に以下のエラーは発生しています。

貼付のExcel シート(Sheet1)のA2が空白の場合
「実行時エラー 13  型が一致しません。」

※A2に連番「1」を入力された状態では正常に起動します
この場合データの全削除が出来ない状態です。

◆実現したいこと
データが空白のとき、A2に「1」を代入する追加コードを入れたい

◆試したことは以下のコード(何れもエラー)
⓵Worksheets("Sheet1").Range("A1").Value = 1 をフォーム開くコードに追加

Sub 値の代入()
Worksheets("Sheet1").Range("A1").Value = 1  
End Sub

説明が下手で申し訳ありませんが宜しくお願い致します。

‘――――――フォーム開くコードーーーーーー
Sub ShowUserForm()
    UserForm1.Show vbModeless
       Sheets("Sheet1").Select
       Range("A2").Select
 End Sub
――――――――――――――――――――――

Private Sub cmd登録_Click()
‘――――――――中略――――――――――
If Range("F1").Offset(1).Value = "" Then
        Range("F1").Offset(1).Value = txt連番.Value
        Else
   End If
        Dim i As Integer
          i = 1
        Do While Cells(i + 1, "F").Value <> "" ‘F列の空欄以外に対する処理
          Cells(i + 1, "A").Value = i
          i = i + 1
       Loop
‘――――――――中略――――――――――
‘※ユーザーフォームをsheetに代入後
 ‘内容をクリアーのコードを記載
End Sub

‘――――――A列の連番最終を確認するコード――――――――――
Private Sub UserForm1_initialize() ‘初期値?
  UserForm1.txt連番.Value = Worksheets("Sheet1").Range("A65536").End(xlUp)
   UserForm1.Show         
End Sub


ワークシート、UserForm、エラーコードを画像で貼り付けます。
イメージ説明

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

初期化プロシージャーに施した

◆試したことは以下のコード(何れもエラー)
⓵Worksheets("Sheet1").Range("A1").Value = 1 をフォーム開くコードに追加

を、下記のように変えてみたらどうでしょう。

If Worksheets("Sheet1").Range("A2").Value = "" then
    Worksheets("Sheet1").Range("A2").Value = 1
End If

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/08/18 12:43

    3109さんいつもありがとうございます。
    どの部分に施したらいいのか迷いましたが、以下の所にコードを
    貼付けることで見事に実現できました。
    本当にいつも迅速なご回答、感謝します。
    今後とも宜しくお願い致します。
    ※3109さんをフォローさせて頂いていますが、回答依頼依頼を出来るユーザーに表示されておらず、ご指名できません。
    ご迷惑でなければご回答依頼を出来るようにならないでしょうか?

    Private Sub UserForm1_initialize() ‘初期値?
    If Worksheets("Sheet1").Range("A2").Value = "" then
    Worksheets("Sheet1").Range("A2").Value = 1
    End If
      UserForm1.txt連番.Value = Worksheets("Sheet1").Range("A65536").End(xlUp)
    UserForm1.Show
    End Sub

    キャンセル

  • 2018/08/18 14:14

    "UserForm1"が作成中の入力フォームを指す名称なら
    それでOKです。

    "initialize"は言葉の通り初期化のことで、
    ユーザーフォームが呼び出された際に動作します。

    利用情報登録ごとに動作させたい文は
    "cmd登録_Click()”内に、
    呼出時1回きりでよいものは
    前述のプロシージャーの中に記述します。


    私はウィークデーはほぼteratailを見られないですし、
    不特定多数に尋ねた方が
    早く正しい正解にたどり着くことができると思います。

    VBAの初歩的な質問で、
    たまたま時間が合うことがあれば、
    私も力になりたいと思います。

    キャンセル

  • 2018/08/20 01:19

    3109さん
    返信が遅くなりました。
    ありがとうございます。今後とも宜しくお願い致します。

    キャンセル

同じタグがついた質問を見る

  • VBA

    2372questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1957questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

  • Access

    613questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。