rivoisu の回答履歴

テレビなどの食べ物番組で、よく食べ物タレントが、「甘ーい！おいしい！」などとコメントしていますよね。肉類、魚類、野菜に限らずです。 私が甘いと感じる物としては、いわゆる砂糖、ブドウ糖、果糖などの糖分や人工甘味料のほか肉の脂身（脂肪）くらいしか無いように思うのですが、これら以外で甘いと感じられる要素はありますか？決して食材を問うているのではありません。どのような要素や物質があれば甘いと感じるものなのでしょうか？

検索関数について 困り度： すぐに回答を！ EXCEL関数について教えてください。 以下の様な表があります。 大グループ：A・B 中グループ：I・II・III・IV・V・VI（大グループの中に各６グループ） 小グループ：数値範囲が記載されている（実際は数百個） 判定結果：(1)～(6) レベル　　　　　　A　　 　　　　　　　　　B　　　　　　　　　　 判定 　　I　II　 III　IV V VI　　　I　II　III　IV　V VI 　(1)　　10 11 12 13 14 15　　13 14 15 16 17 18 　(2)　　11 12 13 14 15 16　　14 15 16 17 18 19 　(3)　　12 13 14 15 16 17　　15 16 17 18 19 20 　(4)　　13 14 15 16 17 18 　 16 17 18 19 20 21 　(5)　　14 15 16 17 18 19 　 17 18 19 20 21 22 検索した条件にあう数値（10～22）がレベル判定(1)～(6)（表の一番左にある数値）のどれにあたるか関数を使用して判定したい。 ※表中の各数値はそのレベル毎での最大値です、(1)の場合は0～（同行の値まで）が対象となります。 判定例） 例えばA／II／9　の判定は(1) また、A／IV／15.01　の判定は(4) 検索条件としては以下の３項目を入力します。 　　・A or B 　　・I～VI 　　・任意の数値を入力します 自分で調べたのですが複雑すぎて分かりませんでした。 長々と解り辛い文章ですみませんがご教授願います。

つい、一時間ほど前までは、問題なく動いていたのですが、入浴から 部屋に戻ってきて、パソコンの電源を入れると、解像度が低くなっており、 デスクトップ画面から右クリック、プロパティの詳細設定を押すと 電源が切れてしまい、解像度が直せません。 現在、白黒で文字やアイコンが大きく画面からはみ出る状態です。 どなたか、解決策をお願い致します。

アマルティア・センの言うエージェンシー（行為主体性）の概念を教えてください。 お願いします。

シート1のC列の最終行を取得して その行を丸々値貼り付けするマクロを作りたいと思います。 シート3のB18の値をシート1のC列の最終行の1つ下のセルに値貼り付け すると、その行のA、B列に日付が入力される関数が入っています。（下まで） 関数が入ったままだと、うまくいかない時があるので最終行をコピーして値貼り付けしたいのですが、マクロの作り方を教えてください。 シート1の最終行に貼り付け Sheets("Sheet3").Select Range("B18").Select Selection.Copy Sheets("Sheet1").Select Range("C65536").End(xlUp).Offset(1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub 最終行をコピーして値貼り付け Dim 最終行 As Integer 最終行 = Range("C65536").End(xlUp).Row Range("A6:C" & 最終行).Select Selection.Copy Sheets("Sheet1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub このマクロだと、A6からC列の最終行まで全てコピーされてしまうので、C列の最終行のAからC列まで1行だけコピーできないでしょうか？

在宅ワーク研修中です、、。ピボットテーブルを使って日付別、地域別、店舗名別の売上金額の集計を行うのですが、指定のエリアにドラックして、表は出来たのですが、課題に、集計方法を合計する。とありますが、どのようにする事ですか？？今週中に提出したいのでよろしくお願いします。m(_ _)m

コショウが世界に広がってその結果は何かを教えてください！

シート1のC列の最終行を取得して その行を丸々値貼り付けするマクロを作りたいと思います。 シート3のB18の値をシート1のC列の最終行の1つ下のセルに値貼り付け すると、その行のA、B列に日付が入力される関数が入っています。（下まで） 関数が入ったままだと、うまくいかない時があるので最終行をコピーして値貼り付けしたいのですが、マクロの作り方を教えてください。 シート1の最終行に貼り付け Sheets("Sheet3").Select Range("B18").Select Selection.Copy Sheets("Sheet1").Select Range("C65536").End(xlUp).Offset(1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub 最終行をコピーして値貼り付け Dim 最終行 As Integer 最終行 = Range("C65536").End(xlUp).Row Range("A6:C" & 最終行).Select Selection.Copy Sheets("Sheet1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub このマクロだと、A6からC列の最終行まで全てコピーされてしまうので、C列の最終行のAからC列まで1行だけコピーできないでしょうか？

EXCELで作成した見積書の金額が仮に合計125万円とし、100万円（80％）に変更する場合、明細の単価を按分して設定したいが簡単な方法をご伝授御願いいたします。Ａ列を数量、Ｂ列を単価、Ｃ列を金額として、ご指導頂ければ幸いです。よろしく御願いいたします。

Gladinetについてなんですが 無事にインストールが終わり。アップロードもできているのですが。 アップロードをしてマイコンピュータをみるとローカルディスクC：には何も保存していないのに、保存したように空き領域が減っていきます。 このままだとローカルディスクC:には保存できなくなるのですか？

シート1のC列の最終行を取得して その行を丸々値貼り付けするマクロを作りたいと思います。 シート3のB18の値をシート1のC列の最終行の1つ下のセルに値貼り付け すると、その行のA、B列に日付が入力される関数が入っています。（下まで） 関数が入ったままだと、うまくいかない時があるので最終行をコピーして値貼り付けしたいのですが、マクロの作り方を教えてください。 シート1の最終行に貼り付け Sheets("Sheet3").Select Range("B18").Select Selection.Copy Sheets("Sheet1").Select Range("C65536").End(xlUp).Offset(1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub 最終行をコピーして値貼り付け Dim 最終行 As Integer 最終行 = Range("C65536").End(xlUp).Row Range("A6:C" & 最終行).Select Selection.Copy Sheets("Sheet1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub このマクロだと、A6からC列の最終行まで全てコピーされてしまうので、C列の最終行のAからC列まで1行だけコピーできないでしょうか？

ある実験結果から作成したグラフで、 横軸と縦軸の関係が直線になっている部分があるのですが、 直線と見なせる横軸の範囲を決定する方法はありますか？ 見た目で大まかな範囲は分かるのですが、できるだけ客観的に範囲を知りたいです。 よろしくお願いします。

あれは人間の悪戯なんですか？ それとも宇宙人が残したメッセージの様なものなんですか？ 良く宇宙人がいる事を公表すると大混乱がおきるので、少しづつ認知させていって時が来たら発表するみたいな話を聞きますが、その類なのでしょうか？ ならアメリカ以外にもミステリーサークルは発生していいと思いますが… でも今迄ミステリーサークルを作った罪として逮捕された人なんているんでしょうか？ こんなに大掛かりな悪戯で沢山あるなら捕まっている人は絶対いる筈だと思うんですが。 詳しい方お願いします。

江戸に幕府をおいた徳川家康。 ところで，どうして徳川家康は死んじゃったのですか？ Please teach me the reason which Ieyasu Tokugawa died of. 도쿠가와 이에야스가 죽은 이유를 가르쳐 주세요

現代の設定 1) 電源入れる 2)デスクトップ表示3)インターネットショーを 　クリックして4)ホームページの表示3)インターネットショーを クリックなしでホームページいけませんか？ 　できるようでしたら設定方法教えて下さいお願いします。 参考までに終了する時は1)スタートボタンクリツク2)ロングオフ 3)シャトダウン表示４）終了 　 WindoWsはビスタ

以下の業務を自動をするために、WSHでプログラムを作っていますが、４点困っていることがあります。 ●●●業務内容●●● １、業務のメールボックスをactivateする。 ２、sendkeys("{Enter}")を使って、メールを開く。 ３、AlTからEditツールのEDIT、を選択し、メールを編集状態にする。 ４、CTRL＋Fで、文字列検索。（「発表日」を検索します。） ５、「発表日」の下に発表される日時が8桁で表示されているので、sendkeysを使い、コピー。 ６、業務に使うエクセルファイルをactivateする。 ■■ここでVBAを使いたいのですが、WSH内のプラグラム内で、VBAを入力することは可能でしょうか？■■ ７、エクセルファイルを開いたら、発表日がある列の空白セルのひとつにペースト。（上のセルから順にペーストしていくので、 i=1 activate.cells(F,i) i=i=1 do while i=10のようにコマンドするつもりです。） ８、業務のメールボックスを再びActivateする。 ■■（業務のメールボックスは新しいメールをタブでふぴじする仕組みになっているので、どうのようにActivateすればいいか困っています。）■■ ９、開いてあるメールを閉じる。（Sendkeysで閉じる予定です）（これから処理する全てのメールを開いたまま、プログラムを実行すれば、確実にエラーが起きるような数のメールなので。） １０、メールボックスに戻るので、{down}と｛enter｝で次のメールを開く。 繰り返し。 ●●●困っていること●●● １、sendkeysをなるべく使わずに実行したい。 sendkeysでは、たとえば他のプラグラム（セキュリティーソフトなど）が実行された場合でも、そのまま実行され続けるので、リスクが大きい。 ２、仮に１で書いたような事態が起きた場合、プログラムを自動的に停止するようにしたいが、どのやってコンピューターにエラーが起きていると判断させるかわからない（違うメールやプログラムを開いている場合に呈する等）。 ３、エクセルと連携させて、Sendkeysを減らしたい。 ４、繰り返し処理はこの場合、どうやって命令するのか。 ●●●今のコード●●● var WShell = WScript.CreateObject("WScript.Shell"); WShell.AppActivate("業務に使うメールソフト(別のウィンドウに開いてある必要があります)"); WShell.Sendkeys("{ENter}"); WScript.sleep(100); WShell.sendkeys("%"); WScript.sleep(100); WShell.sendkeys("a"); WScript.sleep(100); WShell.sendkeys("d"); WScript.sleep(100); WShell.sendkeys("^F"); WScript.sleep(100); WShell.sendkeys("検索したい文字列"); WScript.sleep(100); WShell.sendkeys("｛ESC｝"); WShell.sendkeys("{DOWN}"); WScript.sleep(100); WShell.sendkeys("+{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}"); WScript.sleep(100); WShell.sendkeys("^c") WScript.sleep(100); WShell.AppActivate("EXCEL"); WScript.sleep(10000); WShell.sendkeys("セルまで移動") WShell.sendkeys("^V"); WShell.AppActivate("業務に使うメールソフト"); WShell.sendkeys("%"); WShell.sendkeys("w"); WShell.sendkeys("window がある番号"); WShell.sendkeys("%"); WShell.sendkeys("^W"); WShell.sendkeys("{DOWN}"); WScript.Echo "作業が完了しました。"

教師の方にお伺いします。 日教組加盟の先生もいろいろ考えが違うことは存じておりますが 反日教育の先生に当たると嫌だなと。 引越しで学校が変わる予定ですが、 国旗掲揚　国歌斉唱をする愛国心のある普通の学校だといいのですが。 学校や担任に、日教組かどうかや、どういう教育方針か・・左に傾いていないか・・ 直接質問することは、嫌がられますか？ 変にマークされそうでこわいです。

現在仕事でVBAと悪戦苦闘しています。 下記のマクロを実行すると、実行時エラー'13':型が一致しません。 と表示されます。 初心者で対処法がわかりません。 よろしくお願いします。 Sub Macro1() dat = InputBox("検索値") Range("A1").Activate Cells.Find(What:=dat, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate gegyo = ActiveCell Do Cells.FindNext(After:=ActiveCell).Activate If dat = ActiveCell Then If gegyo = ActiveCell.Row Then End Rows(ActiveCell.Row - 1 & ":" & ActiveCell.Row - 1).Delete Shift:=xlUp Range("A" & ActiveCell.Row - 1).Activate Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 1).Delete Shift:=xlUp Rows(ActiveCell.Row & ":" & ActiveCell.Row).Delete Shift:=xlUp End If gegyo = ActiveCell.Row Loop End Sub

.vbsファイルを実行したら添付している写真のようなエラーが出ました。 こういった系統はあまり詳しくないのでこちらに投稿させていただきました。 これはエラーなのでしょうか？それとも正常に動いているのでしょうか？ ご回答よろしくお願いいたします。

windows updateを開くと、最新の状態になっていたら、緑色で最新の状態ですと表示されますよね？ でも、初めてなのですが、黄色で、「コンピューターの向上のために常に最新の状態にしてください」みたいな表示がされ、更新プログラムの確認ボタンがあったので押したら、いつも通り、緑色で「windowsは最新の状態です」と表示されてました。 新しい更新プログラムはなかったので、不思議です。 これはいったいなんだったのでしょうか？