aiomock回答ポイント 200ptウォッチ

エクセルＶＢＡについて質問です。

現在、指定した数分の文字をランダムに置換するプログラムを作成したいと考えています。

プログラムを実行したいエクセルの状況ですが以下になります。

http://oskuni7.sakura.ne.jp/hatena/question8/question.htm

★行いたい処理の流れは以下になります。

プログラムを実行するとダイアログボックスが出てきて、変更したい文字数を入力してくださいの画面が出てきます。

その後、置換したい文字数を入力し、ＯＫボタンを押すと指定した数字分の文字をランダムに変更してくれます。

エクセルのＵＲＬでは　ああ　と書かれてある文字を　えええ　に指定した分だけ変更するようになっています。

上記の流れの処理のプログラムを組める方おりましたら、お手数をおかけしますがよろしくお願いいたします。

• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• s-n-k2009/01/13 03:54:27

  満足100pt

  http://oskuni7.sakura.ne.jp/hatena/question8/question.htm ダミーです。

  Sub test()
  
      Randomize
  
      Const SrcWord As String = "ああ"
      Const DstWord As String = "えええ"
  
      Dim MyBook As Workbook
      Dim TargetSheet As Worksheet
      Dim TargetRange As Range
      Dim FindCell As Range
      Dim FindCells As New Collection
      Dim RepCount As Long
      Dim RndNums() As Long
      Dim RndNum As Long
      Dim i As Long
      
      Set MyBook = ThisWorkbook
      Set TargetSheet = Sheets("Sheet1")
      Set TargetRange = TargetSheet.Range(Range("AH1"), Range("AH65536").End(xlUp))
      
      RepCount = InputBox("何個のデータを変更しますか？")
      
      ' 置換する対象の文字列を取得
      Set FindCell = TargetRange.Find(SrcWord, , xlValue, xlWhole, xlByRows, xlNext, True)
      If Not FindCell Is Nothing Then
          FindCells.Add Item:=FindCell, key:=FindCell.Address
      End If
  
      Do While True
          Set FindCell = TargetRange.FindNext(FindCell)
          If FindCell Is Nothing Then
              Exit Do
          End If
          If FindCells(1).Address = FindCell.Address Then
              Exit Do
          End If
          FindCells.Add Item:=FindCell, key:=FindCell.Address
      Loop
      
      If FindCells.Count < RepCount Then
          MsgBox "データ数が少ない"
      End If
  
      ' 乱数のテーブルを作る
      ReDim RndNums(FindCells.Count)
      For i = 0 To FindCells.Count
          RndNum = Int((FindCells.Count + 1) * Rnd)
          RndNums(i) = RndNum
          RndNums(RndNum) = i
      Next i
  
      ' 指定された分だけ値を書き換える
      For i = 0 To RepCount - 1
          FindCells(RndNums(i)).Value = DstWord
      Next i
  
  End Sub
  

  このような処理でいかがでしょうか。

  スター

  • aiomock 2009/01/13 11:14:30

    ご回答ありがとうございます。

    プログラム実行させていただきました。

    実行してみたところ

    エラー９

    インデックスが有効範囲にありません

    というエラーが発生しております。

    選択範囲として　H4～H65536まで設定をしたりもしたのですが、こういったことでもないのでしょうか。

    プログラムですが、””文字列の中だけ変更しました。

    対処方法としてはどのような対処方法があるのでしょうか？

    お手数をおかけしますがよろしくお願いいたします。

その他の回答

• abhrsh2009/01/13 15:00:44

  満足100pt

  http://www.yahoo.co.jp/

  URLはダミーです。

  
  

  横から失礼します。

  s-n-kさんの回答にあるスクリプトで、

  「インデックスが有効範囲にありません」

  というエラーが出るということは、

  Excelのバージョンの違いが原因かもしれません。

  
  

  下記の部分を修正されれば解消するのではないでしょうか。

  Set FindCell = TargetRange.Find(SrcWord, , xlValue, xlWhole, xlByRows, xlNext, True)
  

  　　　　　　　　　　　　　　　　↓

  Set FindCell = TargetRange.Find(SrcWord, , xlValues, xlWhole, xlByRows, xlNext, True)
  

  スター

  • aiomock 2009/01/13 15:15:27

    ご回答ありがとうございます。

    プログラムですが通常に起動いたしました。

    ありがとうございます。

この質問へのコメント

• s-n-k2009/01/14 00:02:02
  abhrsh さん、ご指摘ありがとうございます。我が家の Excel が古かったようです。
  
  aiomock さん、無事動いたようでよかったです。中途半端なサンプルを提供してしまい申し訳ございません。

質問の情報

登録日時

2009-01-13 02:46:53

終了日時

2009-01-18 15:55:46

回答条件

1人2回まで

この質問のカテゴリ

• コンピュータ
• インターネット

この質問に含まれるキーワード

人気の質問

• https://hikky-mura.org/t/topic/2523/7 でsma200さんという方に戸塚ヨットスクールを勧められましたが、僕…hayakushinene115時間前
• 親族（実家）の犬が無駄吠えをしています。朝方に一時間くらい吠えているらしい。昼にも一時間くらい吠え続…匿名質問者2213日前
• 度々すみません。 私は以前から大学入試・成績など教育関連のネガティブな夢を見ていましたが、ここ最近そ…hayakushinene51日前
• いつもお世話になっています。 自分、インセル予備軍かもしれません。 街中でカップルや夫婦等見ると羨まし…hayakushinene1日前
• 学歴詐称ではなくて、貴族称号詐称について伺います。イボンヌの香りという映画で、ロシアの伯爵を詐称して…匿名質問者2日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ