TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
サウンドプログラミング6
Go language part 3
Rust Part5
アセンブラ初心者スレッド 2
一般的な処理を関数型の書き方をすると遅い
WPF(XAML, XBAP, .NET4.0)GUIプログラミング Part22
Borland C++ Compiler オ ワ タ
ネットワークプログラミング相談室 Port30
くだすれPython(超初心者用) その46【Ruby禁止】
【統計分析】機械学習・データマイニング19
- 187 ：
- >>185
Private Sub hoge()
Dim title As String
Dim pro As String
Dim default As String
Dim rtn As String
On Error GoTo Errhd
ThisWorkbook.Worksheets(1).Copy after:=ThisWorkbook.Worksheets(1)
title = "シート名の入力"
pro = "追加したシート名の名前を入力して下さい"
pro = pro & vbCrLf & "キャンセルすると規定のシート名です"
default = "ここに入力してね"
rtn = InputBox(pro, title, default)
If Len(Trim(rtn)) <> 0 Then
ActiveSheet.Name = rtn 'ActiveSheetは使いたくないなー
End If
Exit Sub
Errhd:
If Err.Number = 1004 Then
MsgBox "シート名が重複してます。規定のシート名にします"
Else
MsgBox "エラー：" & Err.Description & "エラーNo：[" & CStr(Err.Number) & "]"
End If
End Sub
C/C++以外の推薦図書/必読書のためのスレッド
リーダブルコーディング技術スレ
C++によるDICOMファイル解析
【GPGPU】くだすれCUDAスレ part8【NVIDIA】
オナオナ開発プロジェクト
人工知能はゼルダの伝説をクリアできないだろうな
Javaはもう死んだの？ Part.2
NullPointerExceptionを「ぬるぽ」と呼ぶスレ6
プログラミングのお題スレ Part14
ねえ、これ僕間違ってる？
--------------------
【荒川と下山のせいで】電撃戦隊チェンジマン11【ゴーカイでは踏み台】
【到着】コミケ郵便物 到着報告スレ28【未着】
主婦だって漫画好き！〜183冊目〜
あのさぁ・・・イワナ、書かなかった？のｶﾞｲﾄﾞﾗｲﾝ38
【アスペ】西日本のはだか踊り【ＦＴＤ】
●ゆず 251巻●
令和時代に相応しい時計と時代遅れになりそうな時計
【感動】某有名漫画家の漫画が1日で800万RT！！衝撃的なその内容に心が震えた。 [782112767]
たぬきと不快な仲間たち11【ひとしずく】
【絶対にレス禁止】 患者の独り言 【ルール厳守】
【社会】夜行バスに若者次々 「東京出られなくなる」―週末控え、予定早め帰省・新型コロナ
松屋総合スレッド242
京成系グループのバス 27号車
こえだちゃんって可愛いなぁ。。
SNS狂鬼ムラカミ
ユニビ避難所46
【ミリシタ】アイドルマスターミリオンライブ！ シアターデイズ Part2974
公明党は尖閣問題についてどうしたいの？
ワンピース懸賞金一覧表 2019
アミノバリューってどうよ？★3
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
