ctrlzr の回答履歴

私の職場では、営業で、ノルマが課せられています。その、その、目標の数字ですが、到達が、かなり困難な数値が、設定されています。みんな、がんばっているようですが、到達できた人は、ごくわずか、今年の数値も、職場の同僚が、ほとんど、達成していないのに、来年は、さらに高い、数値が、設定されそうです、私の仕事は、営業ではないため、営業活動は、休日にしなければなりません。また、私自身も、話しべたということ、協力してくれる人がそれほどいないということで、個人で、商品を購入しているのが、現状です、会社側が、ノルマを設定する、メリットは、何だと、考えますか

皆様お世話になります。 昨日は一括保存をご教授していただきありがとうございました。 早速ですが今回は、チェックboxを使用してシートを選択しそれをCSV形式にて保存したいのですがどうもうまくいきません。 ご教授よろしくお願いします Private Sub 保存_Button1_Click() If CheckBox5.Value Or CheckBox6.Value Or CheckBox7.Value Then bl = 5 If CheckBox5.Value Then Sheets("管理").Select Cells.Select Range("a1").Select 保存_start End If bl = 5 If CheckBox6.Value Then Sheets("カット").Select Cells.Select Range("a1").Select 保存_start End If bl = 5 If CheckBox7.Value Then Sheets("ノズル").Select Cells.Select Range("a1").Select 保存_start End If MsgBox "通信終了" Unload Me Else MsgBox "何も選択されていません" End If End Sub Private Sub 保存_start() Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False Application.DisplayAlerts = False ActiveWorkbook.SaveAs Flname = "c:\" & ActiveSheet.Name & "-" & CStr(Format(Date, "yymmdd") & _ "-" & Format(Time, "hhmmss")), FileFormat:=xlCSV ActiveWindow.Close ThisWorkbook.Activate Application.DisplayAlerts = True End Sub

よいお知恵をお貸しくださいませ。 １フロア１テナントのビルに事務所があるのですが、社員が出払うことが多く、 事務員（女性（自称美人））一人になることが多くあります。 事務所は出入り口が一つで、もし万が一強盗や変態が来た時の対応策を考えているのですが、なかなかいい案が浮かびません（＿＿；） 現に先日も妙なのが来たそうです。 攻撃用グッズは相手を逆上させ得るらしいし、アラームだと外まで聞こえない場合があるし、 セコムなんかすぐ来ないという意味であてになりませんよね。 防犯カメラも付けてはいますが、あくまで事後対応にしかなりません。。 何かよい案はありませんでしょうか。どうぞお知恵をお貸しくださいませ。 因みに出入り口の扉に穴空けたり著しい改造はできません。 管理会社にかけあっても無理でした‥。 どうぞ宜しくお願い致します。

題名の通りです。 おかげでURLフィルタがかけられ、好きなサイトが見れなくなりました。。 このような場合どうすればいいですか？ 変な質問ですが、回答のほう宜しく御願いいたします。