メーカー廃業方法
（使用当初、ファイル内には雛形シートのみ存在） 2.業務名が登録されているコンボボックスより対象の業務名を選択＝業務名は●、▲、■の三種類を設定。4.3で指定された業務連絡番号に対し、枝番として作成順番を示す連番をテキストボックスに自動入力する＝例として、業務名●の業務連絡表をはじめて登録する場合は、業務名に●を選択し、業務連絡番号にAが自動で入り、枝番に1を自動で振る。前項目2で業務名を選択すると自動で対象の業務連絡番号がテキストボックスに表示される。VBAを利用し、職場で業務連絡を周知する為の業務連絡表を作成しています。■仕様と作成手順：0.業務連絡発生時、ファイルを起動して業務連絡を入力するユーザーフォームを開く。3.指定された業務連絡番号をテキストボックスに自動入力する＝業務連絡番号は、業務名が●の時はA、▲の時はB、■の時はC、に設定。■質問内容：業務名別に紐付く指定の業務連絡番号を自動入力して、且つ業務連絡番号の枝番(作成される毎に1追加される連番)を自動で振りたいのですが、連番を振るコードが分かりません。下記項目、3.4.のVBAコードがどうしても分かりません。名前は、【業務連絡番号 + 枝番（作成順番を示す連番）】+ 業務連絡表の形式で付ける。Private Sub CommandButton1_Click()Dim ws As Stringws = "【" & TextBox1.Value & Label4 & TextBox2.Value & "】" & "業務連絡表"ActiveSheet.Name = wsEnd Sub'業務名登録Private Sub UserForm_Initialize()With ComboBox1.AddItem "●".AddItem "▲".AddItem "■"End With'業務連絡番号と枝番を直接入力禁止にする。しようＰＣ：DELL Optiplex GX50、Optiplex SX280ＯＳ：Windows XP Pro質問１、しんだんツールはどこでてにはいりますか？ 無料のもので、ＣＤからきどうさせるものをさがしています。（このテキストボックスは業務連絡番号に対する枝番を確認する為だけの物なので直接入力は不可にする）尚、ここで選択した業務連絡番号はコピーシートのセルD2に入る。TextBox1.Enabled = FalseTextBox2.Enabled = FalseEnd Sub以上。ご存知の方がいましたらお教えいただけます様お願い致します。※1件の業務連絡に対し業務連絡表を1シート作成し、以降蓄積される各業務連絡表シートを1ファイルで管理します。また、業務名●の業務連絡表を2回目に登録する場合は、業務名に●を選択すると業務連絡番号には同じ様にAが自動で入り、枝番には2が自動で振られる。タイトルの件について教えてください。概要だけを上手くご説明できませんので、作成手順をご説明させて頂きます。VBA指定セルの最大値を取得して+1の連番を振る はじめまして。どういつシートないに縦型のカレンダーをさくせいし、そのようびに対応して、さきほどにゅうりょくしたすうじがよこにはいるようにしたいのですが、簡単なかんすうとかありますか？ハードウェア(HDD)しんだんツールこんにちは。よろしくおねがいします。(GX50の分で) ＣＤへおとせるバージョンはないのでしょうか。'起動時にユーザーフォームを起動するPrivate Sub Workbook_Open()ThisWorkbook.Worksheets("【雛形】業務連絡表").SelectUserForm1.ShowEnd Sub'1,新規作成用に雛形業務連絡シートをコピーするPrivate Sub OptionButton1_Click()Sheets("【雛形】業務連絡表").Copy After:=Sheets(Sheets.Count)End Sub'2,業務名選択Private Sub ComboBox1_Change()Range("B1").Value = ComboBox1.ValueIf ComboBox1.Value = "●" ThenTextBox1.Value = "A"TextBox2.Value = "1" ’作成開始時の1を設定ElseIf ComboBox1.Value = "▲" ThenTextBox1.Value = "B"TextBox2.Value = "1" ’作成開始時の1を設定ElseIf ComboBox1.Value = "■" ThenTextBox1.Value = "C"TextBox2.Value = "1" ’作成開始時の1を設定End IfEnd Sub'3,指定された業務連絡番号入力Private Sub TextBox1_Change()Range("B2").Value = TextBox1.ValueEnd SubPrivate Sub TextBox2_Change()'4,業務連絡番号の枝番入力（連番式）Range("D2").Value = TextBox2.ValueEnd Sub'5,業務連絡内容を入力Private Sub TextBox3_Change()Range("B3").Value = TextBox3.ValueEnd Sub'6,コピーシートに"【業務連絡番号 + 枝番（作成順番を示す連番）】+ 業務連絡表"の形式で名前を付ける。 5.業務連絡内容をテキストボックスに入力する＝任意の内容を入力。6.ユーザーフォーム上での入力した内容を登録するコマンドボタン＝上記5項目の内容を入力したコピーシートに名前を付ける。エクセルでのひょうそうさ・関数エクセルで、おなじシートないにつき～ひまで、すうじをいれた表をつくったとします。尚、ここで選択した業務連絡内容はコピーシートのB3に入る。そして業務名▲を初めて登録する場合は、業務連絡番号にはBが入り、枝番は1を自動で振る。（このテキストボックスは業務連絡番号を確認する為だけの物なので直接入力は不可にする）尚、ここで選択した業務名はコピーシートのセルB2に入る。２、ツール自体きしゅごとにやっぱりちがうんですよね？３、Dellのサポートページでそれらしきものをみつけましたが、かいとうが フロッピーにしかできませんでした。■補足(1)：現時点で分かる範囲のコードになります。尚、ここで選択した業務名はコピーシートのセルB1に入る。1.新規作成のオプションボタンを押す＝雛形の業務連絡シートをコピーする。ユーザーフォーム内では以下6項目を順に入力する。
お願い少なく
でも、その会社では社員がすくなく、cgiせいさくも頼めません。納品されたデータをサーバーにアップと考えていましたが、サーバーかんり会社から「外部がさくせいしたcgiなどはあまりアップしてほしくない」と言われ、こまっています。たとえば、ブログシステムは「Nucleus CMSだけをつかってほしい」とか・・。コンテンツの量が多いので、がいぶぎょうしゃへのサイトせいさくはひっすです。理由は、トラブルじのたいおうがこんなんになるということだそうです。そこでしつもんですが、いろいろなひとがプログラミングしたものを一つのサーバーにアップするのはよくないことなのでしょうか？そんなにトラブルがはっせいするかくりつが高いものなのでしょうか？みなさんはどうしていますか教えてください。複数のプログラミングを１つのサーバーへアップはダメですかしゃないではせいさくぶたいを持たず、でもあつかっているコンテンツがふくすうあるので、数社の外部ぎょうしゃにサイトせいさくをお願いしています。