良い                 普通 ads.yahoo.comからget-user-id.jsを開くかまたは保存しますか?このメッセージの意味が分かりません。 If i = -1 Then .Range("E:F").Insert • イベントを利用することで行や列の値が変わったら自動で実行するマクロ それでA1からA5、A1からA10、A1~A50、A1~A100のセルの内容を取得しています。A2からなら+2にしてください。 目的が違いましたら、無視してください。 どうして良いのか分かりません。至急おしえてほしいです。. 毎回手作業でやらずに自動化して、Wordの文書に貼り付けしたいんですが、出来ますか?教えて下さい。よろしくお願いします。, こんにちは。Wendy02です。 解答を選択して「次の問題」ボタンをクリックすれば次の問題に移行する・・・というような流れです。 DataSet1.DataTable1(i).SelectAnswer = "ア" 関数で取り出すのでしたらSheet2のA1セルに次の式を入力し下方にオートフィルドラッグします。 Next i INT(RAND()/0.2)+1 で1~5までの整数が得られます。 下記のような条件の場合、VBAを使用して自動化は可能なのでしょうか。 2016/05 (1) 2015/04 (7) 最新コメント. さらに、D1:E1を5行目までコピー。 Target.Interior.ColorIndex = 8 '←水色 End If …                  …, RAND()関数を使うそうです。 5. どうしたら全角になりますか?, エクセルのマクロ記述がわからないです。やっているうちに ヒント3. そうしたら、D1に、 For i = 1 To 10 と入力しましたが メッセージボックスのタイトル部分が Microsoft Excelとなっていますが 例えば "問題1"とかに変えたいのですが  i += 1 ' i をインクリメント(出題を次に進める) ヒントだけ。 Book上にはお示しの5つのSheetが存在しているという前提です。 文:「行人さん、女の人「だけ」ベタベタ甘いですよね... https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10166016785. それではエクセルによるランダムなパスワードの作り方について具体的に説明していきます。. (無回答でのスキップが...続きを読む, エクセルの関数についての質問なのですが、 今回は、大丈夫ですが、あまり間を明けるような場合は、お礼側に入れれば、相手は、それなりの反応を示します。 結婚したことを後悔しています。私と結婚した理由を旦那に聞いてみました。そしたら旦那が「顔がタイプだった。スタイルもドンピシャだった。あと性格も好み。」との事です。 Next i Answer1.Checked = True MsgBox "シャベル" 答えに回答を入力することにより正解であればセルが青く、間違えであればセルが赤くなるようにしたいです。 (抽出したものが重複していたら削除... Excel クリックで〇を付けたい。Excelですでに文字が入っているセルをクリックすると〇が付くようにしたいのですが、そのようなことは可能なのでしょうか? D1セルには次の式を入力し下方にオートフィルドラッグします。 Selection.PasteSpecial Paste:=xlPasteValues End If 最終的な目標はデータテーブルに問題を300問用意しその中からランダムに100問出題して最後に結果を表...続きを読む, まず「次の問題に進む時、問題の参照にiを使わず、乱数で求めた0~299の値を使う」と言うように変更しましょう。 また問題、ヒント、答えは初級、中級、上級、それぞれのシートに(20問ずつぐらい)記載をしています。 Excelでは関数を使って乱数を生成できます。乱数の範囲を指定したり、発生した乱数を固定することも可能です。また重複しないランダムな数字も関数を組み合わせることでできます。他にもランダムに並び替えたいときに役立つ方法を解説します。 Excelでできなければ、フリーソフトでも結構です。 有り難うございました。, エクセルで四者択一の問題を作りたい。・フォーム画面のボタンをクリック、解答、採点画面を出したい。, いつもお世話になっております。 5. Dim i As Long, lastRow As Long, c As Range 面白そうなのでトライしてみました。 元データがA1:B5で、C列を作業列に使用して、D:E列に表示するとします。 B1~B5に値がならんでいたとして、B1~B5の中からランダムに一つ抽出したものをA3に表示する関数はありますか?, A3に次の式を入力すればよいでしょう。 形としては百単語をランダムに並べ、その問題用紙と解答用紙の2枚が印刷されるものを作りたいと考えていますが、Excel初心者ですので作りかたがわ c.Offset(, -4).Resize(, 3).Copy 悪い                 良い 最初の初期化時に「300件全部、解答(SelectAnswr)の値を""にして、すべて未出題」にする。 ' i が10になった = 回答が10問終わった INT(RAND()/0.01)+1 で1~100までの整数が得られます。      1 admit      認める ans = InputBox(Question, "問題" & i) ↓のコードをコピー&ペーストしてください。 悪い                 良い End Sub 一部分どころか、全体的に分からなくなってきたのでどなたかおしえていただけませんか。 End Sub 'この行まで =LARGE(INDEX(NOT(COUNTIF($C$1:C1,ROW($A$1:$A$5)))*ROW($A$1:$A$5),),INT(RAND()*(5-ROW(C1))+1)) まず、C1に、 JavaScriptが無効です。ブラウザの設定でJavaScriptを有効にしてください。JavaScriptを有効にするには, Excelで単語テストを作ろうと考えています。 良い                 悪い 選択肢を選ばずに「次の問題」を押してしまった場合「解答(SelectAnswr)」の値が「まだ出題してない""」のまま次に進んでしまっては困るので、次に進む前に「解答(SelectAnswr)の値を"S"にする」と言う処理をして「出題済み」にする。 =IF(OR(COUNTIF(C:C,ROW(A1))=0,ROW(A1)>25),"",INDIRECT("A"&MATCH(ROW(A1),C:C,0))) Question = WS.Cells(i + 1, 2).Value 恐れ入りますがご教授願います。, こんばんは! マクロ、関数 wS2.Activate ただし、私の場合は、一応、気になるもので、閉められていないものは、期間を3ヶ月に区切って、こちらではすべてチェックしています。 関数の意味はちょっとわからないところもありますが、 関数の引数として指定された行と列の値をチェックし,数値であれば背景色に色付けをする関数を作成する• 引数は,行,列,塗り色の3個としてください Else エクセルを開いたら、パスワード文字列のベースとなるアルファベットの取得ソースをB1セルに入力します。. Dim c As Range Answer1.Text = DataSet1.DataTable1(i).Answer1 何を使ってするのが早いでしょうか? 皆... 仕事のエクセルの件でご質問させてください。現在、仕事で大量のエクセルの一部分を変更するという業務があります。 単語の順番が同じである問題用紙と解答用紙の作り方を教えてください。. 代わりに、乱数で「解答(SelectAnswr)の値が、まだ出題してない""になっている問題」を探す。 Answer = WS.Cells(i + 1, 3).Value DataSet1.DataTable1(i).SelectAnswer = "ウ" H(2) = "当たり!" 参考URL:http://d.hatena.ne.jp/fyts/20080222/excel, Excelで次のような表を作りました。(例として書きます) Answer2.Text = DataSet1.DataTable1(i).Answer2 最後に「問題」SheetのSheet見出し上で右クリック → コードの表示 → VBE画面に wS2.Columns.AutoFit End If ます「TOP」Sheetにコマンドボタンを挿入 → コマンドボタンのコードを↓にしてみてください。 まずはお使いのPCに入っているMicrosoft Excelを開きます。. Excelで作るというのは、なかなか大変です。私も作ったことがあります。 While WS.Cells(i + 1, 2) <> "" ほぼ差分の無い100個のエクセルファイルにA,B,C,Dの4つのシ... エクセルのマクロ初心者です wS2.Range("E3").Select 【Top(sheet1)、問題(sheet2)、初級(sheet3)、中級(sheet4)、上級(sheet5)】 Set WS = Worksheets("Sheet2") 出題時に問題を参照する時「DataSet1.DataTable1(i).ほげほげ」のように「(i)」で参照するのをやめる。 '正誤確認 Set c = .Range("F:F").Find(what:=i, LookIn:=xlValues, lookat:=xlWhole) Else wS2.Range("C3:E17").ClearContents Target.Interior.ColorIndex = xlNone total = total + 1 解答を選択して「次の問題」ボタンをクリックすれば次の問題に移行する・・・というような流れです。 ヒント1.      2 realize       悟る 普通        →        悪い Answer3.Text = DataSet1.DataTable1(i).Answer3 添付のような左の票を右の表のようにまとめたいです。ただし、行が3000行、列が110列ほどあり、膨大なデータです。 NextQuestion.Text = "次の問題" (無回答でのスキップが出来ない、つまり、選択肢のどれかを選ばないと「次の問題」ボタンが押せない、と言う処理の場合「無回答でスキップした"S"」は不要) .Range("E:F").Delete INT(RAND()/0.1)+1 で1~10までの整数が得られます。 ヒント1. 前回、同じような質問をされた方がいますが、あくまでも、ご自身で作るという方針でしたので、私のアドバイスは受け入れてくれませんでした。趣味でもなければ、そのための時間を使うのはもったいないです。高校卒業レベルで4,000語、大学受験で、あと2,000語程度は必要です。 Set WS = Worksheets("Sheet2") つまり「乱数で0~299の値を作り、解答(SelectAnswr)の値が""なら、その乱数が出題番号になり、解答(SelectAnswr)の値が""じゃないなら乱数の作り直し」をすればよい。 DataSet1.DataTable1(i).SelectAnswer = "イ" H(2) = "当たり!" Private Sub CommandButton1_Click() Dim i As Integer セルJ9に【普通 6】 次にAlt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面に バナナ 悪い                 悪い 例えばA2のセルに12:17と入力したらB2のセルに12:30と表示されるように。A2のセルに8:05と入力したらB2のセルに8:15と表示されるようにしたいです。, さっきからExcelにイライラして仕方ないので助けてください。あるセルに、2021年1月を全角で入力したのに、enter押したら勝手にユーザー定義で半角になってしまいます。(添付参照) 1. 下記の文字列のコピー&ペーストで問題ありません。 セルH9に【大変良い 10】 Application.ScreenUpdating = False エクセルで四択問題を作っています。いろいろ教えて貰ってほぼ完成したのですが、出題方法をランダムに処理できればと考えています。できれば、データシートに入力してある問題数をカウントして、その中でのランダム数値発生方法を教えて と入力して、C5までコピーします。 .Range("E:F").Delete End With ElseIf Answer2.Checked = True Then ' i が -1以外のとき(つまり、回答後のクリック) Ubuntuで問題解決 Simple Scan導入編 (04/27) 古いスキャナーでも使えるようになる? (04/27) 一秒発行がマジだった。BOOKOFFポイントサービス (04/06) Android5.0 .2 Lollipop が使える3つの点 (04/05) 月別アーカイブ . これにより、紙媒体だけ・電子ファイルだけでの単独保管管理による以下のデメリットを打ち消すことができます。3)ITセキュリティの専門家からすればまだまだ不十分・不完全な点もあるかと思いますが、個人でできる実用的な範囲の対策としてご理解ください。 jQuery("#footnote_plugin_tooltip_3").tooltip({ tip: "#footnote_plugin_tooltip_text_3", tipClass: "footnote_tooltip", effect: "fade", fadeOutSpeed: 100, predelay: 400, position: "top right", relative: true, offset: [15, 10] }); 作成したランダムで複雑なパスワードは、コピー&ペーストで間違いなく転記できますし、登録サイトへログインする際もコピー&ペーストで間違いなく入力できます。, 万が一エクセルファイルが流失しても、パスワードがかかっていることによりリスクを軽減できます。, エクセルファイルが破損して読み取れなくなっても、プリントアウトした一覧表でバックアップ可能です。, 各種ポイントサイトでの活動には、パスワードの問題が必ず付きまといます。本記事の情報を含めて、ご自身でしっかりと対応するようにしましょう。, これはどこのお金持ちの話かって? MsgBox "サイダー" みかん  ・・・・・(以下同様) wS6.Activate End If と入力して、E1にコピー。 かりません。 Range(.Cells(2, "E"), .Cells(lastRow, "E")).Formula = "=RAND()" Set c = .Range("A:A").Find(what:=Target.Offset(, -2), LookIn:=xlValues, lookat:=xlWhole) よろしくお願い致します。 最終的な目標はデータテーブルに問題を300問用意しその中からランダムに100問出題して最後に結果を表示するプログラムを作成することです。 ちなみにOffice2000です。, こんにちは。maruru01です。 End If H(3) = "残念" =IF(A1="","",RANK(B1,B:B)) 全体数以内なら、範囲を決めて入力してください。 MsgBox "[OK]ボタンを押...続きを読む, エクセル関数を使って、ランダム抽出をしたいのですが よろしければ教えて下さい Set wS3 = Worksheets("初級") Range(.Cells(2, "F"), .Cells(lastRow, "F")).Formula = "=RANK(E2,E:E)" 例:F1: 10, F2: 40 私はそれを聞いて最初は嬉しかったけど、だんだん不安になってきました。 「問題」SheetのE列に答えを入力してみてください。 Sub Sample1() 'この行から Application.ScreenUpdating = True Sub quiz1() 3. Dim ans As Variant With wS5 Book上にはお示しの5つのSheetが存在しているという前提です。 Excelのデータで、以下のように列データの並び替えを行いたいのですが、Excelの機能でできますでしょうか? どのように関数(RAND関数?)を設定したらいいのかよくわかりません。 教えてください。お願いします。 B1セルには次の式を入力し下方にオートフィルドラッグします。 Dim WS As Object Sub quiz() 4. MsgBox("あなたの正解数は10門中" & total & "問です!")        英語       日本語 セルI9に【やや良い 8】 データテーブルに「問題(Question)」「選択肢(Answer1~4)」「解答(SelectAnswr)」「正解(CorrectAnswer」「正解の解説(Explanation)*今質問中では使用させません」を格納しています。 みかん わかるかたがいましたら知恵をかしてください。 「解答(SelectAnswr)」に入る値を「回答された"ア"~"エ"」「無回答でスキップした"S"」「まだ出題してない""」の3種類にする。 End With やはり、[F9]を押すたびごとに並べ替えられます。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 End If ヒント5. これでSheet2のD列にはランダムに抽出されたデータが並ぶことになります。 現在、1つのシートにいろいろなデータが入っているのですが、 D列のデータを使い、そのデータをランダムに25件抽出したいのです。 ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues いろいろ比較して、これが良いと思いました。Excelでは、SVC を使って、P-Study にインポートします。それと、なるべく例文を加えたほうがよいですね。英語--日本語 は一対一ではありませんから、日本語側の単語を多くしてイメージを作りやすくさせたほうがよいです。 i = i + 1 何も入れていないと、E列は、すべて0になり、後G列以降の項目は表示しません。, 例えばA1に「いぬ」 A2に「ねこ」 A3に「ぞう」 A4に「たぬき」 A5に「きつね」と入力します ActiveSheet.Range("C3").Select Set wS6 = Worksheets(Worksheets.Count) Dim Question, Answer, H(3) As String 変更されますので、大変参考になりました。 ランダムに抽出されるようにマクロを作成したいです。 お礼側と補足側の書き込む順序は、逆にしてくださいね。 手作業でしていたのですが、間違えも出てくるし、 Range(.Cells(2, "E"), .Cells(lastRow, "E")).Formula = "=RAND()" 参考URL:http://www.takke.jp/, タイトルの通りです office2002ですが visual vasic editorに入力しています。 有り難うございました。お礼が遅れて申し訳ありません。, 早速入力して試してみました。 再試の数で私に勝る者はいないと自負しています。独学でC,C++やVBAを学んでいる初心者です。実績はまだありませんが、自作ゲームを作っていきたいと考えています。ジャンルはまだ決まっていませんけど、できればRPG系が作りたい. ヒントは以下の通り。 Sheet6を作業用のSheetとして追加・使用するようにしていますので、 wS6.Visible = xlSheetHidden '問題の読み込み 少しずつ勉強して理解できる様に頑張ります。 With wS4 面白そうなのでトライしてみました。 MsgBox "記録" Dim ans As Variant Excelでは関数を使って乱数を生成できます。乱数の範囲を指定したり、発生した乱数を固定することも可能です。また重複しないランダムな数字も関数を組み合わせることでできます。他にもランダムに並び替えたいときに役立つ方法を解説します。 'NextQuestionのテキスト変換 データテーブルに「問題(Question)」「選択肢(Answer1~4)」「解答(SelectAnswr)」「正解(CorrectAnswer」「正解の解説(Explanation)*今質問中では使用させません」を格納しています。 Call Sample1 H(1) = "ぴんぽ~ん!" エクセルによるランダムなパスワードの作り方. End With End If お願いします。, 現在私は画像のような4択の問題を解答し最後に何問正解していたかを表示するプログラムを作成しています。 単語の暗記のために書籍を買ったり暗記カードを作るのってめんどくさいし、時間やコストがかかる。 ノーコストでもっと早くきれいに暗記教材が作れないか? 私はそう考え目を付けたのがエクセルです。 もともとPC はよく触るのでやり方さえわかれば暇な時間にエクセルを立ち上げて自作問題をやるのはちょっとカッコイイと思いませんか? 実は エクセルのワークシート関数であるrandとlookupのたた二つの関数で簡単に実現できます! 仕様はsheet1に問題と解答のデータ入力を行い、sheet2にsheet1中の問題を一つ表示させ、解答は下の方の見えないセルにおきます。これでお手製の軽い暗記カードをつくることができるでしょう。, ~作り方~ 1.sheet1 A列に1,2,3,……とオートフィルなどで番号を振っていきます。, 2.sheet1のB1セルから下のセルへB2,B3……と次々問題を作っていきます。(単語でも文章題でもOKです)今回は便宜上、英単語で行います。, ※注意 セルの間に空白のセルがないようにする。 4.データ入力は完了しました。次にsheet2をクリックし、sheet2 A2セルに"登録単語数"と打ち込み、A3に "問題番号"と打ち込みます。, 5.次にB2セルに"=COUNTA(A:A)" とうち、全問題数を表示させます。今回は問題数10問なので10と出ます, 6.B3セルにpcではじかれる乱数を使用するので"=INT(RAND()*B2+1)"と打ちます。RAND()は乱数関数 INTは少数点を切り捨てた整数をかえします。 ここでF9(再計算のショートカットキー)を押して値が1~全問題数までの乱数がでます。, 7.次にランダムの問題番号に応じた問題をB5セルに表示します。B5セルに”=LOOKUP(B3,Sheet1!A:A,Sheet1!B:B)”。 lookup関数はB3番目のsheet1のB列の問題を表示します。, 8.同じ原理でB6セルに解答を出します。B6セルに"LOOKUP(B3,Sheet1!A:A,Sheet1!B:B)", 9.F9を押して文字が変わればOK! If ans = Answer Then Sheet6を作業用のSheetとして追加・使用するようにしていますので、 2. なお、この方法は「300問中100問」などのように、最後の100問目に近い時も未出題の問題が多い場合は問題ありませんが「すべての問題を出題する」などの場合、最後の問題に近くなると未出題の問題が減り「残りの問題が乱数にヒットせず、次の問題に進む際に時間がかかる」と言う欠点があるので注意して下さい。今回のように「300問中100問」であれば問題はありません。, まず「次の問題に進む時、問題の参照にiを使わず、乱数で求めた0~299の値を使う」と言うように変更しましょう。 Set wS4 = Worksheets("中級") なお、F9のキーを押すことで抽出操作を繰り返すことができます。, こんにちわ。 問題シート内のC3~C17に問題が、D3~D17に(問題に付随した)ヒントが 「解答(SelectAnswr)」に入る値を「回答された"ア"~"エ"」「無回答でスキップした"S"」「まだ出題してない""」の3種類にする。 Dim Question, Answer, H(3) As String 作業列を1列だけ使用した、絶対に重複しない数式での方法です。 =Sheet1!D1 .Range("E:F").Delete If i = 10 Then 栗   ・・・(以下同様) と続いていきます。 まず、一番、可能性があるのは、F列で、範囲を指定していないことですね。 そして「初期化時や無回答で次の問題に進んだ時の、解答(SelectAnswr)にセットする値を工夫する事で、未出題か出題済みか判定する」と言う処理をして、問題の重複を避けましょう。 これが参考になるかと。 =INDEX(B1:B5,RANDBETWEEN(1,5)), EXCEL2003で作った英単語と意味のデータを番号1~50までと指定した範囲をランダムで20問選んで、印刷したいんですけど、どうやったらいいか教えて下さい。 Sub quiz() ※単語テストは英単語をみて、よこに日本語訳を書くだけのいたってシンプルなものです。  ElseIf Answer3.Checked = True Then 先日、息子が彼女にプロポーズして、相手両親に挨拶に行きました。彼女は一人娘で、彼女の父親から、氏名だけでも彼女の姓を名乗ってもらえないかと言われたと息子より相談の連絡がありました。まだしっかりと話はしていないので、息子の考えや彼女の考えもわかりませんが、いずれこのような相談があるだろうと私自身前... 個人についての「当社比」の意味皆さん、次の文で「当社比」は「他の男みんなに比べれば、シュガー含有量は1.5倍」それとも「行人さんが男の人としゃべるときより女の人としゃべるときシュガー含有量は1.5倍」意味があります? 次にAlt+F11キ...続きを読む, 現在私は画像のような4択の問題を解答し最後に何問正解していたかを表示するプログラムを作成しています。 Set wS2 = Worksheets("問題") Private Sub CommandButton1_Click() できるのであればVBAのコードについてもご教示お願い致します。 .Range("E:F").Insert wS6.Range("A2:B16").Copy Question.Text = DataSet1.DataTable1(i).Question