otasukeyのプロフィール
- ベストアンサー数
- 5
- ベストアンサー率
- 27%
- お礼率
- 77%
- 登録日2002/12/02
- 時期が来れば自分宛にメールを送りたい
スケジュール管理のような大袈裟なものでなく 簡単なメモ程度の文章を時期を事前に設定 しておいて時期が来れば自分宛にメールを送りたい のですが良いサイトはありますでしょうか?
- ベストアンサー
- mama000001
- その他(インターネット・Webサービス)
- 回答数4
- 割増賃金計算表の作成
A列に基本給、時間単価としてB列に普通残業、C列に深夜残業、D列に休日出勤、そしてE列に時間外手当を表示させたいのですが分かりません。 1.基本給が変わると自動的に単価も変わるように設定するにはどうしたらいいですか? 2.時間外手当を普通残業、深夜残業、休日出勤の月合計時間によって自動的に計算させるにはどうしたらいいですか? こんな質問の仕方では意味がわからないと思いますが分かる範囲でお返事お願いします。
- ベストアンサー
- kazuhime23
- オフィス系ソフト
- 回答数2
- エクセルVBAで作成した別ブックにVBAを記述したい
VBAで別ファイルの作成は下記で出来ているのですが、出来上がったファイルにVBAを記述する方法がわかりません。 具体的には一番下のSub TEST()を新しいブックの標準モジュールに記述したいのと、sheet1に Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "ChangeTEST" End Sub を入れたいです。 また Private Sub Workbook_Open() MsgBox "OpenTEST" End Sub も入れたいのです。 どうぞご教示ください。 Sub 複製() Dim wb As Workbook, sc As Integer sc = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = 1 Set wb = Workbooks.Add Application.SheetsInNewWorkbook = sc wb.Sheets("Sheet1").Select ThisWorkbook.Sheets("Sheet1").Cells.Copy wb.Sheets("Sheet1").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Buttons.Add(123, 195, 68.25, 15).Select Selection.OnAction = "TEST" Selection.Characters.Text = "TEST" ActiveWorkbook.Close ThisWorkbook.Activate Sheets("Sheet1").Select End Sub Sub TEST() MsgBox "TEST!!" End Sub よろしくお願いします。
- ベストアンサー
- shishishishi
- オフィス系ソフト
- 回答数2
- ヒットラーの台頭は平和主義者のせい?
以前に、「ヒットラーの台頭を許し、第2次世界大戦を引き起こしたのは、英仏の宥和政策を主張していた反戦派のせいだ」と聞いたことがあります。 その理由がよくわからないのですが、詳しい方教えてください。 お願いします。
- 法律(家)を題材にした本
漫画で「カバチタレ」という行政書士が主人公の本があります。 同様に行政書士が主人公の本(小説・漫画・ノンフィクションなんでもOK)がありましたら教えてください。 また、法律家(弁護士・裁判官・司法書士)が主人公(題材)にした本もありましたら、あわせて教えてください。