Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(指定なし : 指定なし)
シートを指定して貼りつけたい
投稿日時: 19/06/14 13:09:26
投稿者: paobon

以前、「シートを指定して貼りつけたい」というタイトルで質問させていただいたのですが、その時に教えていただいたマクロで実行をすると「実行時エラー28 スタック領域が不足しています」となってしまします。
 
下記が教えていただいた構文です。
↓↓↓
以下のようなプロシージャを
そのモジュールに追加して下さい。
  
-----------------------------------------------------------------
Function FindWorksheetBySuffix(ByVal Suffix As String, _
                               Optional ByRef Book As Excel.Workbook) As String
  
    Dim ws As Excel.Worksheet
      
    If Suffix = "" Then
        Exit Function
    End If
      
    If Book Is Nothing Then
        Set Book = ActiveWorkbook
    End If
      
    For Each ws In Book.Worksheets
        If ws.Name Like ("*" & Suffix) Then
            FindWorksheetBySuffix = ws.Name
            Exit Function
        End If
    Next
      
End Function
-----------------------------------------------------------------
  
次に、下記に引用したそれぞれのコードを書き換えます。
  
引用:
If bCheck1 = True Then

Dim sKey As String
Dim sSheetName As String
  
If bCheck1 = True Then
  
引用:
Worksheets("AAAA").Activate
Range(Selection, Selection.End(xlDown)).Copy Worksheets("No.P通し番号_番号").Range("a19")
Worksheets("No.P通し番号_番号").Activate

Worksheets("AAAA").Activate
sKey = Worksheets("AAAA").Range("A2").Value
sSheetName = FindWorksheetBySuffix(sKey)
If sSheetName = "" Then
    MsgBox """" & sKey & """ とマッチするワークシートが見つかりません。", vbExclamation
Else
    Range(Selection, Selection.End(xlDown)).Copy Worksheets(sSheetName).Range("A19")
    Worksheets(sSheetName).Activate
End If
---------ここまで----------
 
sSheetName = FindWorksheetBySuffix(sKey) の構文でエラーが発生しております。
何か可能性となるもの等お分かりになる方がいらっしゃいましたら、お力をお貸しください。
知識不足で大変申し訳ありませんが、よろしくお願いいたします。

回答
投稿日時: 19/06/14 14:13:41
投稿者: sk

引用:
以前、「シートを指定して貼りつけたい」というタイトルで
質問させていただいたのですが

https://www.moug.net/faq/viewtopic.php?t=78270
 
引用:
実行時エラー28 スタック領域が不足しています

引用:
sSheetName = FindWorksheetBySuffix(sKey) の構文でエラーが発生しております。

とりあえず、そのステートメントを含むプロシージャに
記述されている全てのコードを明示されることをお奨めします。

回答
投稿日時: 19/06/14 15:37:04
投稿者: WinArrow
投稿者のウェブサイトに移動

気になるところ
 
ByRef

ByVal
ではだめなの?

トピックに返信