999けんのSTEPのQ&A 12/50

スポンサードリンク

英語が堪能な方、回答お願い致します。I wish I could dance. I have two left feet. I step on others feet.この意味を教えてください。それと、Facebookは消したから今はやってないの。というのを英語にしてください。宜しくお願い致します。...

2012-04-10
I wish I could dance. (上手に)ダンスできたらなあ…I have two left feet.私、不器用なの。 I step on others feet.他の人の足踏んじゃうし。have two left feetで不器用という意味になるようです。ダンス得意じゃないようですね^^;Facebookは消したから、今はやってないI deleted my facebook fan page, so I haven't done it .でどうでしょうか？so~は無くてもわかるとおもいますが。...
解答、続きを読む

Drivers hoping to slip the surly下記訳してください。Drivers hoping to slip the surly - and traffic congested - bonds of Earth moved a step closer to realizing their dream, as a US firm said it had successfully tested a street-legal plane. surlyが訳しにくいです。...

2012-04-10
ざっと、訳しますね。ドライバーは、（交通渋滞をしている）しっかりとした大地のきずなを断ちきって飛び上がり、夢の実現への第一歩を踏み出したのである。アメリカの会社が言ったように、それは、公道を走れる飛行機のテストの成功であった。という感じでしょうか。surelyは、bondsに掛かっていると解釈しました。 the surly bonds of Earthは、重力のことを詩的に言っているのかなと思います。[補足]失礼しました。surelyではなく、surlyですね。間違えてました。この一文は、アメリカの飛行家John Gillespie Mageeの詩“High Flight”の冒頭の一節、I have slipped the surly bonds of earth から、引用しているんですね。これは、直訳すると、意地悪な大地の束縛を逃れたという感じだと思います。surlyは、意地の悪いという意味ですが、地球上で生きていると、常に重力が私たち人間を捉えてしつこく付きまといますから、そんな重力をsurly 意地悪なと表現しているのだと思います。...
解答、続きを読む

正直VBAは初心者ですが、引継ぎでチェックリストを作成しており、参考書等を見ておりますが、自分が望んでいるリストを作成するまでには時間が必要と考えています。宜しければどなたか教えて頂けないでしょうかセルA～ACまであり、セルB1の行は見出しとなっており、セルA列はセルC2に商品名をリストより選べば各商品別の情報がセルD～Fに自動的に表示される設定をしております。まず、セルC～U全てのセルに文字等が入力されるとセルVに完了の文字が自動的入り、Wはコメント用に空けています。さらにセルX～ABも上記同様にセルACに完了が入るように設定しています。わかりづらいかもしれませんが、上記を踏まえてセルBにセルＶとACが完了なら完了を表示させたいのですが、どうしたらいいのでしょうか？もう一つは下記の式がありますが、これはセルBに完了の文字が入ったらセルBをダブルクリックすると違うシートに切り取って貼り付けるようになっています。しかし、今の設定では必ず3行以上を切り取るとセルBの見出しが消えてしまいます。なぜなのでしょうか？Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim Rw As LongDim Cnt As LongConst ShName = "完了一覧" ' <-- 移動先シート名If InStr(Target.Value, "完了") > 0 ThenCancel = TrueFor Rw = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1With Cells(Rw, 2)If InStr(.Value, "完了") > 0 Then.EntireRow.CutWorksheets(ShName).Rows(2).Insert Shift:=xlDown.EntireRow.DeleteCnt = Cnt + 1End IfEnd WithNextMsgBox Cnt & " 件のデータを移動しました。", vbInformationEnd IfEnd Sub...

2012-04-10
こんな感じで如何でしょうか。同じシートのモジュールに記述します。後のコードは、ちょっとだけ修正していますから上書きしてください。時間を掛けてもコードを解析して理解し、メンテ出来るようにしてください。質問文がVBAで処理するのに要点を捕らえた適した内容になっています。ただ「列」を「セル」と表現しています。頑張ってください。何か見たことがあるコードと思ったのですが・・・だいぶ前に返答したものですね。でもIDが違っているみたいです。Private Sub Worksheet_Calculate()Dim Rng As RangeFor Each Rng In Range("V2", Cells(Rows.Count, 22).End(xlUp)) If InStr(Rng.Value, "完了") > 0 And InStr(Rng.Offset(, 7).Value, "完了") > 0 Then Cells(Rng.Row, 2).Value = "完了" End IfNextEnd SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim Rw As LongDim Cnt As LongConst ShName = "完了一覧" ' <-- 移動先シート名If Target.Column = 2 And InStr(Target.Value, "完了") > 0 Then Cancel = True For Rw = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1 With Cells(Rw, 2) If InStr(.Value, "完了") > 0 Then .EntireRow.Copy Worksheets(ShName).Rows(2).Insert Shift:=xlDown .EntireRow.Delete Cnt = Cnt + 1 End If End With Next MsgBox Cnt & " 件のデータを移動しました。", vbInformationEnd IfEnd Sub...
解答、続きを読む

神奈川県在住の今年、受験生のものです。公立の志望校について悩んでいます。内申は３９で５教科は２４です。また、高校受験STEPに通っていて、そこでは湘南高校にいけるといわれました。しかし、知恵袋などを見ていると、湘南高校は内申１３０以上の生徒がいっているようで、とても厳しそうです。また、大学進学率などから柏陽高校や川和高校もいいなと思っています。そこで質問です。現実的に、僕がいけそうな学校を教えてください。ちなみにSTEPのオープン模試での偏差値は６４でした。...

2012-04-09
実際の高校生なのであまり今の高校入試について詳しくないかもしれませんが、これから前期はなくなるので、もう少しテスト重視になるのでは?先生との相性が悪い、実技がうまくいかないなどの理由で36なら改善されると思います。5教科は24とのことですし。それと、今から落とすのはNGだと思います。独自入試がなくなるなら、点が高ければ高いほどいいので、湘南を目指し続けるべきです。出願の時期で湘南が無理だというレベルになったとしても、きっと少し下げた高校はかなり余裕になりますよ!!ただ、湘南は、自分でいかに勉強と部活・行事を両立できるかです。楽しい高校生活より、安全に大学に現役で行きたいという人には辛い校風かと。でも、体育祭は本当に生きててよかったって思いますよ。先輩やタメも内面がしっかりしていて、一生モノの友達、一生尊敬すべき人に出会えると思います。とにかく、大幅に受験のシステムが変わるので、過去の入試の内心はあまりあてにしないことをすすめます。私は135で前期でしたが、実際後期で努力した人のほうが頭が良かったりします(笑)頑張ってください♪補足のことですが、湘南以外はよくわかりませんが、はくようは湘南と並んで評されることが多いので周りのライバルは大学受験のいい刺激になると思います。ただ、湘南ほど行事が多いところはなかなかないので、はくようは行事を楽しみたいなら物足りないかもしれません。その代わり、楽しさより現役合格を目指したいなら湘南は避けるべきかもしれません。部活や行事を楽しんで現役でいい大学に入るならかなりの精神力と体力が必要ですね…...
解答、続きを読む

一行おきに空白行を挿入し、挿入した行の文字を赤にしたい。お願いします。助けてください。（EXCEL2010 32bitインストール）VBAについて、本日、一行おきに空白行を挿入するための VBAを貼りつけて、実行したところ簡単にできました。VBAって便利がいいと実感したのもつかの間、今度これに、赤文字になるように編集しようと思い、マクロ記録で選択範囲を赤を作成し、編集画面をみたのですが、どこに貼り付けたらよいのか分かりません。みなさまご教授お願い申し上げます。Sub 一行おきに空白行を挿入()Dim colLeft As Long Dim colRight As Long Dim i As Long Application.ScreenUpdating = False colLeft = Selection(1).Column colRight = Selection(Selection.Count).Column For i = Selection(Selection.Count).Row To Selection(1).Row + 1 Step -1 Range(Cells(i, colLeft), Cells(i, colRight)).Insert (xlShiftDown) Next i Application.ScreenUpdating = TrueEnd Sub赤文字にする。Sub Macro1()'' Macro1 Macro'' With Selection.Font .Color = -16776961 .TintAndShade = 0 End WithEnd Sub...

2012-04-09
補足の内容に対応しました。それぞれコメントしていますので、不要な行は削除してください。Sub Sample() Dim rNum As Long Dim cNum As Integer Dim cCnt As Integer Application.ScreenUpdating = False cNum = Selection.Column cCnt = Selection.Columns.Count For rNum = Selection(Selection.Count).Row To Selection.Row + 1 Step -1 Cells(rNum, cNum).Resize(, cCnt).Insert Shift:=xlDown '行挿入 With Cells(rNum, cNum).Resize(, cCnt) .Font.ColorIndex = 3 '挿入行のフォントの色を赤に .Borders(xlEdgeBottom).LineStyle = xlNone '挿入行の下線削除 .Borders(xlEdgeTop).LineStyle = xlNone '挿入行の上線削除 .Interior.ColorIndex = 15 '挿入行のセルの色を25%灰色に End With Next rNum Application.ScreenUpdating = TrueEnd Sub※ フォントとセルの色はColorIndex（色番号）で指定しています。対応する色はこちらを参考にしてください。http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_font.html...
解答、続きを読む

翻訳お願いします＞＜どうしても食べたいレシピがあるんですが、分かる方おしえてください（;´Д⊂）おねがいします！The Roux: If this is your first attempt at cloning Tommy's chili, a word of advice is, the roux-the flour and oil mix that makes Tommy's unique is easily burnt. This one step can make or break your recipe. You're going to want to cook your beef, and drain the fat. Then measure that fat, and an equal amount of flour to it. (1:1 ratio, though some report their preference for 3:1 - flour:oil) Keeping your beef separate, you now want to cook your roux over medium heat, stirring it till it just starts to turn reddish brown. Then immediately add your beef and all seasonings, reduce the heat to medium low, and cover, continuing the stirring to prevent from burning. (5-10 minutes) Cover, stir, cover, stir, cover. (It's a workout.) The chili is near complete, when you can no longer taste the raw flour in the mix....

2012-04-09
The Roux:ルー：If this is your first attempt at cloning Tommy's chili, a word of advice is, the roux-the flour and oil mix that makes Tommy's unique is easily burnt. もし、あなたが初めてトニーのチリの真似ごとをするのなら、ちょっとしたアドバイスは、トニーのチリを独特なものにしている小麦粉とオイルのミックスのルーは焦げやすいということです。This one step can make or break your recipe. この段階で、あなたのレシピは上手く行きもするし失敗もするのです。You're going to want to cook your beef, and drain the fat. あなたは肉を調理して脂肪を除きたいと思うでしょう。Then measure that fat, and an equal amount of flour to it. (1:1 ratio, though some report their preference for 3:1 - flour:oil) だとしたら脂肪を計量して、同量の小麦粉を用意してください。（１対１の比率です。３：１-小麦粉：オイルがベターだという報告もありますが）Keeping your beef separate, you now want to cook your roux over medium heat, stirring it till it just starts to turn reddish brown. 肉を別にしておき、中くらいの熱さで赤茶色になり始めるところまでかき混ぜながらルーを調理します。Then immediately add your beef and all seasonings, reduce the heat to medium low, and cover, continuing the stirring to prevent from burning. (5-10 minutes) それからすぐに肉と調味料をすべて加え、火を中くらいからやや弱め、カバーをして、焦げないようにかき混ぜ続けます。（５～１０分）Cover, stir, cover, stir, cover. (It's a workout.) カバーする、かき混ぜる、カバーする、かき混ぜる、カバーする。（まるでエクササイズです。）The chili is near complete, when you can no longer taste the raw flour in the mix.ミックスに生の小麦粉味が残らなくなれば、チリはほぼ完成です。...
解答、続きを読む

どなたか、日本語に訳してくれませんか。Rob: Exactly. Listen to these examples…Sally is dressing outside her usual comfort zone; have you seen the dress she’s wearing tonight?!Bob’s working outside his comfort zone by agreeing to run the accounts department.Rob: A comfort zone can also describe the ideal temperature of a room. It’s just the right conditions to feel comfortable in – not too hot, not too cold.Helen: Well Rob, I think we’re in just the right comfort zone now.Rob: We are but come on, let’s step outside and get some fresh air.Helen: Sorry Rob, I’m staying in my comfort zone. Mmm, it’s so cosy and I feel so secure here and anyway, it might be raining out there.Rob: You don’t take any chances Helen! Oh well, see you later. Bye.Helen: Bye! Oh this sofa is so comfortable, mmm......

2012-04-09
R：その通りだよ。こんな例もあるんだ。サリーの衣装はいつものコンフォトゾーンとは違うよ、今夜の彼女のドレス見た？ボブは会計課のまとめ役を引き受けるなんて、コンフォトゾーンから抜け出して働いているよ。R：コンフォトゾーンってのは、快適室温を意味することもあるんだ。H：だったらロブ、あたし達まさにコンフォトゾーンにいるってわけね。R：そうだよ、でもさ、外に出て新鮮な空気に触れてみようよ。H：ごめんなさい、ロブ、あたしはコンフォトゾーンのほうがいいわ。居心地がいいし、とにかく安心なのよここは。もしかして雨になるかもよ、外は。R：慎重なんだなあ、ヘレンは！じゃあまたね、バーイ。H：バーイ。このソファーったら、心地のいいこと、ウームムム。...
解答、続きを読む

嵐のStep and goって曲何に使われたか（映画の主題歌で・・・とか）知ってる方いたら教えてくださいm(__)mおねがいします♪...

2012-04-09
こんにちは♪step and goはGRAのエンディングテーマでしたよ(*^o^*)...
解答、続きを読む

現在、VBAのハイパーリンクで悩んでいます。下記のようなコマンドラインで書きたいです。要はセル1つずつに名前が書いており、その名前ごとにシートを作ります。その後、各々のセルとシートとをハイパーリンクで繋ぎたいです。環境はOffice2003です。よろしくお願いいたします。 For j = 0 To 50 Step 6 For i = 0 To 50 If Cells(2 + i, 2 + j) <> "" Then str = Cells(2 + i, 1 + j) + Cells(2 + i, 2 + j) Worksheets.Add after:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = str Worksheets("シート名").Cells(2 + i, 2 + j).Hyperlinks.SubAddress = str & "!R1C1" End If Next i Next j...

2012-04-09
まず、変数名として str は使用出来ません。Excel VBAで予約されている Str関数が既に存在しているからです。あと、変数の宣言を全くしていませんが「変数の宣言を強制するように設定」した方がいいと思います。設定は、VBAのメニューから[ツール]-->[オプション]-->[編集]タブで「変数の宣言を強制する」にチェックを入れます。これによって、コードウィンドウを開いた時に Option Explicit がいつも自動的に表示された状態になり、デバック作業が捗ります。それで、コードを見た感じで、たぶんこんなことではないかと思います。リンクを設定する範囲は、そのコードのままです。一応、追加シート名の重複をチェックしています。Sub SetHypLinks()Dim Sh As WorksheetDim Rw As LongDim Col As LongDim Str1 As StringSet Sh = Worksheets("シート名")For Col = 0 To 50 Step 6 For Rw = 0 To 50 If Sh.Cells(2 + Rw, 2 + Col) <> "" Then Str1 = Sh.Cells(2 + Rw, 1 + Col) & Sh.Cells(2 + Rw, 2 + Col) If Not TypeName(Evaluate(Str1 & "!A1")) = "Range" Then Worksheets.Add after:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Str1 End If Sh.Hyperlinks.Add Anchor:=Sh.Cells(2 + Rw, 2 + Col), _ Address:="", SubAddress:=Str1 & "!A1" End If NextNextMsgBox "ハイパーリンクの設定を完了しました。", vbInformationEnd Sub...
解答、続きを読む

近畿地区では心斎橋BIG STEPは有名ですか？...

2012-04-08
アメ村のビッグステップは有名ですね。別の人が答えてるのは、ＳＴＥＰという全く関係ない靴屋のチェーンなので、念のため。...
解答、続きを読む

AAAのライブについてです。AAAのライブのグッズ販売って、販売開始時刻過ぎてから行っても買えますか？それとも、販売開始時刻の前から並んでないと買えませんか？ぐっず販売について知っているかたは、なんでもいいので教えてください。お願いします。＊検索用わーど＊AAA グッズ販売ライブ西島隆弘伊藤千晃宇野美彩子末吉秀太日高光啓與真司郎浦田直也しんちあたかうの逢いたい理由 sailing PARADISE No cry No more SUNSHINE MUSIC!!! CALL Hide-awayCharge&Go! Break Down CRAZY GONNA CRAZY STEP HORIZON 負けない心ダイジナコト出逢いのチカラ...

2012-04-08
販売時間が過ぎても購入することは可能です。ただし、人気の商品などは売切れてしまうこともあります。あとは今年もえ～キャンペーンが行われるのでこれが確実に欲しいのなら、販売時間過ぎても大丈夫だと思いますが、余りに遅いと終了って場合もあるかと思います。...
解答、続きを読む

嵐がＭステで歌ったstep and goって生歌でしたよね？翔さんのラップや出だしのいつもどおり～♩とか生歌ですよね？違いますかね？...

2012-04-08
どの曲も、時間がたって落ちついた頃に見直すと、生で歌っていたのがよく分かりますよ。...
解答、続きを読む

yuu_age_step粘着バカこいつをつきはななすには、どうしたら、いいでしょう？粘着力が強くて離れません。ストーカーみたいです。このようなやつは、元々、人間的にも、おかしいやつでしょうか？粘着して何を楽しんでいるのでしょうか？人生孤独でやることないのでしょうか？悲しいやつですか？相手にしてやったほうがいいですか？...

2012-04-08
迷惑届ってヤフーメールで出せましたが、それって使えないんですか？ま、どうしても困るなら無視かアカウント変更でしょうね、コインもったいないですが。警察の方も、キ×ガイは、犯人にも、死体にも、落し物にも属さなくて厄介だと言ってるの聞いたことあります。放置しましょ！放置！ってか、ここでは犯人のようですが？困ったら利用規約、見ましょうね。↓http://docs.yahoo.co.jp/docs/info/terms/...
解答、続きを読む

初めまして。 Excelマクロについての質問です。マクロ初心者です。本やネットで調べたりしているのですが、わからないので教えて下さい。従業員名簿がsheet1に入力されています。A列にフォームコントロールのチェックボックス、B列にNo.、Ｃ列に名前、Ｄ列に住所・・・という感じでＬ列まで。No.1の人が８，９行 No.2の人が１０，１１行という感じで一人２行ずつです。sheet２には、sheet1と同じ空白の表が入っています。sheet１のチェックボックスに☑が入った人のみＣ：Ｌをコピーしてｓｈｅｅｔ２のＣ４：貼り付けしたいのです。sheet１にフォームコントロールボタン「抽出」を作って下記のマクロを登録しましたが動きません。間違っているところを教えて下さい。または、別の方法があれば教えて下さい。Sub 抽出_Click()Dim iFor i = 8 To Cells(Rows.Count, 1).End(xlUp).Row Step 2If Cells(i, 1).Value Then Cells(i, 3).Resize(2, 8).Copy Worksheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Offset(1)NextEnd Sub乱文失礼致しました。...

2012-04-08
Ａ列のチェックボックスにチェックを入れても、Ａ列のセルが空白でしたらIf Cells(i, 1).Value Then ・・・と記述しても、処理対象になりません。例えばＡ８のチェックボックスの「リンクするセル」にＡ８を指定すれば、チェックが入ると「TRUE」が表示されますので、それを処理フラッグに使用し、次のように書き替えられるとよいでしょう。If Cells(i, 1).Value = "True" Then ・・・...
解答、続きを読む

大江千里さんのアルバムの中で1番好きなアルバムは何ですか？そのアルバムの中で1番好きな曲は何ですか?理由もあったら、ぜひ聞かせて下さい( ´ ▽ ` )ノちなみに、私は「GiantStep」が好きです。このアルバムだけ、捨て曲が一つもない、私の中ではパーフェクトなアルバムだからです。好きな曲はとても悩むけど、「RADIO」が1番好きかな♪( ´θ｀)...

2012-04-08
好きなアルバム1枚と言うと、むずかしいですね。選ぶとしたら、「1234」でしょうか。この頃の、シンガーソングライターたちは、テレビ出演が少なく、プロモーション方法として、PVが出始めました。ジャケットのイメージと同じく、白黒のPVは、インパクトがありました。好きな曲は、「Rain」失恋していた当時、自分の体験と重ね合わせて聴いていました。つけ加えると、「これから」もいいですね。この曲は、「1234」が発売されたあとの、「1234」の流れを汲んだ単独シングル。次のオリジナルアルバム、「redmonkey yellowfish」とは、カラーが違うということで収録されず、その次のアルバム、「APOLLO」に収録されました。失恋を引きずっていて、この曲も擦り切れるぐらい何度も聴きました。今となっては、懐かしい思い出です。...
解答、続きを読む

BB cyber DAM (G-100) Hyper Joy WAVEUGA+上記の機械にＫＡＲＡの「ＳＴＥＰ」は入ってますか？...

2012-04-08
KARAの「ステップ」で良いですか。ウガは入っていません。配信未定。BBサイバーダムには配信済み。ハイパージョイウェーブには4月19日配信予定です。...
解答、続きを読む

つい最近A－STEPというモデルタレント事務所にスカウトされましたここはどんな事務所で所属タレントはどんな活動をしているのか、知りたいです渡された名刺のホームページはhttp;//a-step-c.co.jp宜しくお願いします...

2012-04-07
a-stepは、ホームページをみる限りallureの関連会社みたいですね。http://allure.vc/allureは雑誌の専属モデルが数人いるので、ファッション系に強い事務所っぽいですよね。ただ、芸能には…？芸能・グラビアを目指していらっしゃるなら、当然大手が良いですし、大手さんがなかなか参入していないファッション誌のスナップや読モを目指されているなら、ありなのでは？まぁわからないことも多いので、実際話を聞いてみて宣材写真とかを無料でやってくれるのかどうかです。スカウトされたのに、よくわからない登録費など取られるようでしたら考えた方が良いですよね。あとは、どこにでも書いてありますが、できれば、当然未成年の方は親御さんに同伴してもらった方が良いですよ。目指されていらっしゃるなら頑張って下さいね(*^o^*)...
解答、続きを読む

KARAってほんと可愛い♪見るだけで元気もらえる♪5人みんな可愛いけど俺はやっぱりニコル(*^^*)みなさんはどうですか？わざわざ嫌いな人は書き込まないでね。ニコルハラジヨンスンヨンギュリ韓流 STEP GO GO サマーガールズパワースピードアップスウィートデイズ SOS ルパン lupin ジェットコースターラブミスターガールズトーク...

2012-04-07
私もニコル一番好きです♪でも一人一人個性があって全員大好き！！...
解答、続きを読む

嵐ファンの方へ！！！嵐で一番好きな曲を教えてください！！！ひとりひとつでお願いします・・・(教えてもらったものは全部聞きたいので・・・)自分は嵐の５×１０、believe、beautifuldays、truth、step and go、we can make it、きっと大丈夫、wish、サクラ咲け、monster、感謝カンゲキ雨嵐、a・ra・shi、a day ore in life、ワイルドアットハート、迷宮ラブソング、あまり知られてないですがa take itです！！！特に好きなのは５×１０やtruthや感謝カンゲキ雨嵐です！！！(一番は感謝カンゲキ雨嵐です！)解答よろしくお願いします！！！...

2012-04-07
「ファイトソング」です(*^_^*)とにかく歌詞がやばいです！とても元気がでます///他にもいっぱいあるのですがっ(≧▽≦)...
解答、続きを読む

メンズファッションこんにちはメンズファッションについて質問です下がカーキ色のカーゴパンツならベルトは何色がいいでしょうかね？ https://sp.basket.step.rakuten.co.jp/rms/mall/bss/cart/?shop_bid=231230ちなみにこんな感じの色ですね自分では黄色がいいと思いましたみなさんの意見をください...

2012-04-07
赤茶のレザーベルトがよいかと。...
解答、続きを読む

«« 最初へ　 « 戻る | ページ: | 次へ »　最後へ »»