[[20210909145926]]　『セルの複数部分を消去するマクロボタンを作成した』（やっち）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『セルの複数部分を消去するマクロボタンを作成したいが、うまくいかないです。』（やっち）

結合しているセル、結合していないセルなど複数を消去する場合、数か所であればエラーが起きずにマクロボタンで起動します。何十か所をしていしてマクロボタンを作成するとエラーが起きてしまいます。
どのようにすればエラーが起きずできるか教えてください。

＜ 使用 Excel：Excel2019、使用 OS：Windows10 ＞

マクロボタンに登録しているマクロのコードを教えてください。
（めざめるパワー） 2021/09/09(木) 15:16
ctrl　で選択しながらスクロールして行うと、こんな感じになります。

Sub さくじょ()
'
' さくじょ Macro
'

' 

    ActiveWindow.SmallScroll Down:=-6
    Range( _
        "B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24" _
        ).Select
    Range("B22").Activate
    ActiveWindow.SmallScroll Down:=6
    Range( _
        "B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29" _
        ).Select
    Range("R29").Activate
    ActiveWindow.SmallScroll Down:=6
    Range( _
        "B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36" _
        ).Select
    Range("B34").Activate
    ActiveWindow.SmallScroll Down:=6
    Union(Range( _
        "H41:J41,B41:D41,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40" _
        ), Range("R41:S41,M41:O41")).Select
    Range("B41").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32" _
        ), Range( _
        "B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41" _
        )).Select
    Range("B50").Activate
    ActiveWindow.SmallScroll Down:=6
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25" _
        ), Range( _
        "B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41" _
        )).Select
    Range("B55").Activate
    ActiveWindow.SmallScroll Down:=6
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20" _
        ), Range( _
        "B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41" _
        )).Select
    Range("B62").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B63:S65,B66:D66,H66:J66,M66:O66,R66:S66" _
        ), Range( _
        "B67:S69,R70:S70,M70:O70,H70:J70,B70:D70,B71:S73,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37" _
        ), Range("H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41")).Select
    Range("B71").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B63:S65,B66:D66,H66:J66,M66:O66,R66:S66" _
        ), Range( _
        "B67:S69,R70:S70,M70:O70,H70:J70,B70:D70,B71:S73,B74:D74,H74:J74,M74:O74,R74:S74,B75:S77,R78:S78,M78:O78,H78:J78,B78:D78,B79:S81,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29" _
        ), Range( _
        "H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41" _
        )).Select
    Range("B79").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B63:S65,B66:D66,H66:J66,M66:O66,R66:S66" _
        ), Range( _
        "B67:S69,R70:S70,M70:O70,H70:J70,B70:D70,B71:S73,B74:D74,H74:J74,M74:O74,R74:S74,B75:S77,R78:S78,M78:O78,H78:J78,B78:D78,B79:S81,B82:D82,B83:S85,H82:J82,M82:O82,R82:S82,R86:S86,M86:O86,H86:J86,B86:D86,B87:S89,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21" _
        ), Range( _
        "H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41" _
        )).Select
    Range("B87").Activate
    ActiveWindow.SmallScroll Down:=6
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B63:S65,B66:D66,H66:J66,M66:O66,R66:S66" _
        ), Range( _
        "B67:S69,R70:S70,M70:O70,H70:J70,B70:D70,B71:S73,B74:D74,H74:J74,M74:O74,R74:S74,B75:S77,R78:S78,M78:O78,H78:J78,B78:D78,B79:S81,B82:D82,B83:S85,H82:J82,M82:O82,R82:S82,R86:S86,M86:O86,H86:J86,B86:D86,B87:S89,B91:D91,B92:S94,H91:J91,M91:O91,R91:S91,R95:S95" _
        ), Range( _
        "M95:O95,H95:J95,B95:D95,B96:S98,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37" _
        ), Range("R37:S37,B38:S40,R41:S41,M41:O41")).Select
    Range("B96").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B63:S65,B66:D66,H66:J66,M66:O66,R66:S66" _
        ), Range( _
        "B67:S69,R70:S70,M70:O70,H70:J70,B70:D70,B71:S73,B74:D74,H74:J74,M74:O74,R74:S74,B75:S77,R78:S78,M78:O78,H78:J78,B78:D78,B79:S81,B82:D82,B83:S85,H82:J82,M82:O82,R82:S82,R86:S86,M86:O86,H86:J86,B86:D86,B87:S89,B91:D91,B92:S94,H91:J91,M91:O91,R91:S91,R95:S95" _
        ), Range( _
        "M95:O95,H95:J95,B95:D95,B96:S98,B99:D99,H99:J99,M99:O99,R99:S99,B100:S102,R103:S103,M103:O103,H103:J103,B103:D103,B104:S106,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29" _
        ), Range( _
        "R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41" _
        )).Select
    Range("B104").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B63:S65,B66:D66,H66:J66,M66:O66,R66:S66" _
        ), Range( _
        "B67:S69,R70:S70,M70:O70,H70:J70,B70:D70,B71:S73,B74:D74,H74:J74,M74:O74,R74:S74,B75:S77,R78:S78,M78:O78,H78:J78,B78:D78,B79:S81,B82:D82,B83:S85,H82:J82,M82:O82,R82:S82,R86:S86,M86:O86,H86:J86,B86:D86,B87:S89,B91:D91,B92:S94,H91:J91,M91:O91,R91:S91,R95:S95" _
        ), Range( _
        "M95:O95,H95:J95,B95:D95,B96:S98,B99:D99,H99:J99,M99:O99,R99:S99,B100:S102,R103:S103,M103:O103,H103:J103,B103:D103,B104:S106,B107:D107,B108:S110,H107:J107,M107:O107,R107:S107,R111:S111,M111:O111,H111:J111,B111:D111,B112:S114,B17:D17,H17:J17,M17:O17,R17:S17" _
        ), Range( _
        "R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41" _
        )).Select
    Range("B112").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B63:S65,B66:D66,H66:J66,M66:O66,R66:S66" _
        ), Range( _
        "B67:S69,R70:S70,M70:O70,H70:J70,B70:D70,B71:S73,B74:D74,H74:J74,M74:O74,R74:S74,B75:S77,R78:S78,M78:O78,H78:J78,B78:D78,B79:S81,B82:D82,B83:S85,H82:J82,M82:O82,R82:S82,R86:S86,M86:O86,H86:J86,B86:D86,B87:S89,B91:D91,B92:S94,H91:J91,M91:O91,R91:S91,R95:S95" _
        ), Range( _
        "M95:O95,H95:J95,B95:D95,B96:S98,B99:D99,H99:J99,M99:O99,R99:S99,B100:S102,R103:S103,M103:O103,H103:J103,B103:D103,B104:S106,B107:D107,B108:S110,H107:J107,M107:O107,R107:S107,R111:S111,M111:O111,H111:J111,B111:D111,B112:S114,B115:D115,B116:S118,H115:J115" _
        ), Range( _
        "B119:D119,B120:S122,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37" _
        ), Range("R41:S41,M41:O41")).Select
    Range("B120").Activate
    ActiveWindow.SmallScroll Down:=6
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B63:S65,B66:D66,H66:J66,M66:O66,R66:S66" _
        ), Range( _
        "B67:S69,R70:S70,M70:O70,H70:J70,B70:D70,B71:S73,B74:D74,H74:J74,M74:O74,R74:S74,B75:S77,R78:S78,M78:O78,H78:J78,B78:D78,B79:S81,B82:D82,B83:S85,H82:J82,M82:O82,R82:S82,R86:S86,M86:O86,H86:J86,B86:D86,B87:S89,B91:D91,B92:S94,H91:J91,M91:O91,R91:S91,R95:S95" _
        ), Range( _
        "M95:O95,H95:J95,B95:D95,B96:S98,B99:D99,H99:J99,M99:O99,R99:S99,B100:S102,R103:S103,M103:O103,H103:J103,B103:D103,B104:S106,B107:D107,B108:S110,H107:J107,M107:O107,R107:S107,R111:S111,M111:O111,H111:J111,B111:D111,B112:S114,B115:D115,B116:S118,H115:J115" _
        ), Range( _
        "B119:D119,B120:S122,B123:D123,B124:S126,H123:J123,M123:O123,R123:S123,R127:S127,M127:O127,H127:J127,B127:D127,B128:S130,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25,H25:J25,M25:O25,R25:S25,B26:S28,B29:D29,H29:J29" _
        ), Range( _
        "B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41" _
        )).Select
    Range("B128").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "H41:J41,B41:D41,B42:S44,B47:S49,B46:D46,H46:J46,M46:O46,R46:S46,R50:S50,M50:O50,H50:J50,B50:D50,B51:S53,B54:D54,H54:J54,M54:O54,R54:S54,B55:S57,B58:D58,H58:J58,M58:O58,R58:S58,B59:S61,R62:S62,M62:O62,H62:J62,B62:D62,B63:S65,B66:D66,H66:J66,M66:O66,R66:S66" _
        ), Range( _
        "B67:S69,R70:S70,M70:O70,H70:J70,B70:D70,B71:S73,B74:D74,H74:J74,M74:O74,R74:S74,B75:S77,R78:S78,M78:O78,H78:J78,B78:D78,B79:S81,B82:D82,B83:S85,H82:J82,M82:O82,R82:S82,R86:S86,M86:O86,H86:J86,B86:D86,B87:S89,B91:D91,B92:S94,H91:J91,M91:O91,R91:S91,R95:S95" _
        ), Range( _
        "M95:O95,H95:J95,B95:D95,B96:S98,B99:D99,H99:J99,M99:O99,R99:S99,B100:S102,R103:S103,M103:O103,H103:J103,B103:D103,B104:S106,B107:D107,B108:S110,H107:J107,M107:O107,R107:S107,R111:S111,M111:O111,H111:J111,B111:D111,B112:S114,B115:D115,B116:S118,H115:J115" _
        ), Range( _
        "B119:D119,B120:S122,B123:D123,B124:S126,H123:J123,M123:O123,R123:S123,R127:S127,M127:O127,H127:J127,B127:D127,B128:S130,B131:D131,H131:J131,M131:O131,R131:S131,B132:S134,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25" _
        ), Range( _
        "B29:D29,H29:J29,M29:O29,R29:S29,B30:S32,B33:D33,H33:J33,M33:O33,R33:S33,B34:S36,B37:D37,H37:J37,M37:O37,R37:S37,B38:S40,R41:S41,M41:O41" _
        )).Select
    Range("B132").Activate
    Selection.ClearContents
End Sub

（やっち） 2021/09/09(木) 15:25

B17:D17,H17:J17,M17:O17,R17:S17,
B18:S20,
B21:D21,H21:J21,M21:O21,R21:S21,
B22:S24,
B25:D25,
B29:D29,H29:J29,M29:O29,R29:S29,
B30:S32,
B33:D33,H33:J33,M33:O33,R33:S33,
B34:S36,
B37:D37,H37:J37,M37:O37,R37:S37,
B38:S40,
B41:D41,H41:J41,M41:O41,R41:S41,
B42:S44,
B46:D46,H46:J46,M46:O46,R46:S46,
B47:S49,
B50:D50,H50:J50,M50:O50,R50:S50,
B51:S53,
B54:D54,H54:J54,M54:O54,R54:S54,
B55:S57,
B58:D58,H58:J58,M58:O58,R58:S58,
B59:S61,
B62:D62,H62:J62,M62:O62,R62:S62,
B63:S65,
B66:D66,H66:J66,M66:O66,R66:S66,
B67:S69,
B70:D70,H70:J70,M70:O70,R70:S70,
B71:S73,
B74:D74,H74:J74,M74:O74,R74:S74,
B75:S77,
B78:D78,H78:J78,M78:O78,R78:S78,
B79:S81,
B82:D82,H82:J82,M82:O82,R82:S82,
B83:S85,
B86:D86,H86:J86,M86:O86,R86:S86,
B87:S89,
B91:D91,H91:J91,M91:O91,R91:S91,
B92:S94,
B95:D95,H95:J95,M95:O95,R95:S95,
B96:S98,
B99:D99,H99:J99,M99:O99,R99:S99,
B100:S102,
B103:D103,H103:J103,M103:O103,R103:S103,
B104:S106,
B107:D107,H107:J107,M107:O107,R107:S107,
B108:S110,
B111:D111,H111:J111,M111:O111,R111:S111,
B112:S114,
B115:D115,H115:J115,
B116:S118,
B119:D119,
B120:S122,
B123:D123,H123:J123,M123:O123,R123:S123,
B124:S126,
B127:D127,H127:J127,M127:O127,R127:S127,
B128:S130,
B131:D131,H131:J131,M131:O131,R131:S131,
B132:S134

整理するとこのような範囲選択になっているようですがこれで全部ですか？
（めざめるパワー） 2021/09/09(木) 16:33

あと原因ですが

　B119:D119,B120:S122,B123:D123,B124:S126,H123:J123,M123:O123,R123:S123,R127:S127,M127:O127,H127:J127,B127:D127,B128:S130,B131:D131,H131:J131,M131:O131,R131:S131,B132:S134,B17:D17,H17:J17,M17:O17,R17:S17,B18:S20,B21:D21,H21:J21,M21:O21,R21:S21,B22:S24,B25:D25

これが255文字を超えたことです（257文字あります）。
（めざめるパワー） 2021/09/09(木) 16:45

これで全部です。
超えてても可能にする方法は、ありますでしょうか？
（やっち） 2021/09/09(木) 18:03
横からですが、めざめるパワーさんが整理されたとおりなら、こうですかね？ 
   Sub テスト()
      Dim ひな形 As Range
      Dim 行 As Long
      Dim MyRNG As Range


      Set ひな形 = Range("B1:D1,H1:J1,M1:O1,R1:S1,B2:S4")


      Set MyRNG = Union(ひな形.Offset(16), ひな形.Offset(20))
      For 行 = 29 To 134 Step 4
         Set MyRNG = Union(MyRNG, ひな形.Offset(行 - 1))
         If 行 = 41 Or 行 = 86 Then 行 = 行 + 1
         If 行 = 111 Then 行 = 行 + 8
      Next 行


      Set MyRNG = Union(MyRNG, Range("B25:D25"))
      Set MyRNG = Union(MyRNG, Range("B115:D115,H115:J115,B116:S118"))
      Set MyRNG = Union(MyRNG, Range("B119:D119,B120:S122"))


      MyRNG.Select
   End Sub

（もこな２） 2021/09/09(木) 20:33

ありがとうございます。
申し訳ないんですが、ひな形という部分は、何か入れればいいんですか？
（やっち） 2021/09/09(木) 22:05
＞ひな形という部分は、何か入れればいいんですか？
投稿時にミスっていたようなので訂正しました。

何を入れればよいかというか、一部変則パターンはありますが、基本的には同じパターンを繰り返しているんじゃないかとおもうんですが如何でしょうか？

（もこな２） 2021/09/10(金) 01:09

あまりマクロの事が分かっていないのです…。
できれば、コピペして直ぐに使用できるものを教えていただけないでしょうか。
勝手を言って申し訳ありません
（やっち） 2021/09/10(金) 07:00
提案にイラつくのであれば自分でやればいい。
255文字を超えるものを分割すればいいだけでは？

（通りすがり） 2021/09/10(金) 08:48

 >コピペして直ぐに使用できるものを教えていただけないでしょうか。
 上記のもこな２さんのマクロは実行されましたか？
 実行した結果を見ればあとはどうすればいいか流石にわかると思うのですが…
（*） 2021/09/10(金) 09:25
通りすがりさん
別にイラついていませんけど。イラついているのはあなたでしょ？
あなたの言葉にイラッとしましたけどね笑
でも分からなかったら分割してやります。
（やっち） 2021/09/10(金) 18:01
わたしなら、対象セルの値クリアしたシートをテンプレートとして用意しておきます。
邪魔なら非表示シートでもよいです。

（マナ） 2021/09/10(金) 18:16

マナさんありがとうございます。
それも一つの方法なんですけど、シートをリンクしてあるので毎度リンク付けする必要がでてきちゃうんですよね？
（やっち） 2021/09/10(金) 21:30
マクロでテンプレートシート全体をコピーして、
形式を選択して貼り付け（数式と数値の書式）
では、だめですか？

（マナ） 2021/09/10(金) 21:54

↑失礼しました。マクロを使うまでもなかったです。

（マナ） 2021/09/10(金) 21:58

コメント返信：

[ 一覧(最新更新順) ]

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.