【ブログ】ヘタリアって原作はどこですか? (出版社をきいています)

【ブログ】ヘタリアって原作はどこですか? (出版社をきいています)

ヘタリアって原作はどこですか? (出版社をきいています)

ヘタリアって原作はどこですか?
(出版社をきいています)

アンサー

日丸屋秀和「Axis powers ヘタリア」幻冬舎コミックス(幻冬舎)
既刊6巻
「ヘタリア World☆Stars」JUMP COMICS+(集英社)
既刊4巻
◆ありがとうございます


質問タグ:ヘタリア,幻冬舎コミックス,出版社,Axis Powers,JUMP COMICS,原作,日丸屋秀和

【マル得】人狼2人・狂人1人と村人側3人となればどちらが勝ちですか? ロストエ…

人狼2人・狂人1人と村人側3人となればどちらが勝ちですか? ロストエ…

人狼2人・狂人1人と村人側3人となればどちらが勝ちですか? ロストエデン7話の三日目の投票時には
村人
紘美・ルナ・亜利沙・東
人狼・人狼側
宇田川・千帆・都築
でしたが村人四人の誰かが投票で吊られたら人狼側でゲーム終了でしたか?
人狼と村人が同数になってその際に狂人は生き残れるとなってましたが知りたくてお聞きしました。

アンサー

いいえ、人狼側ですが狂人は人狼ではなく市民としてカウントされます。なので、市市市市市狼狼の状況です。カウント的には。ですが市民側が吊られてしまい市民側が襲撃されると翌日狼狼狂市市の状況になり狼と狂人が票を合わせれば負けてしまう状況なので、市民側が吊られると厳しいですね。


質問タグ:人狼,村人,狂人,誰か,亜利沙,市民側,翌日狼狼狂市

【2018年最新】「IS<インフィニット・ストラトス>」の篠ノ之箒とプールに行きたい…

「IS<インフィニット・ストラトス>」の篠ノ之箒とプールに行きたい…

「IS<インフィニット・ストラトス>」の篠ノ之箒とプールに行きたいですか?

可能ならもちろんです!アンサー

可能ならもちろんです!
◆1日遅れたけど誕生日おめでとう、箒。
◆「IS<インフィニット・ストラトス>」の篠ノ之箒とプールに行きたいです。
◆「IS<インフィニット・ストラトス>」の篠ノ之箒とプールに行きたいです
◆我が一夏なら、yes!だろ!
上手く行けば、即・夜戦!
アッ、ウサミミの研究者が来た。ゲフンゲフン~!ピチューン×50
◆箒となら、泊りで海でも構わん。
当然、同室で。
あと、個人的には鈴も一緒で。
もちろん泊りは同室で。


質問タグ:インフィニット・ストラトス,箒,プール,篠ノ,ピチューン,同室,ウサミミ

【日記】キハ110系は阿武隈急行に乗り入れ出来ますか?又、乗り入れが出来る場…

キハ110系は阿武隈急行に乗り入れ出来ますか?又、乗り入れが出来る場…

キハ110系は阿武隈急行に乗り入れ出来ますか?又、乗り入れが出来る場合、過去に乗り入れた事は有りますか?詳しい方が居ましたら教えて下さい。

アンサー

JRの車両で阿武隈急行に乗り入れたことがあるのは、455系や701系くらいです。
仙台DCといったイベント時には、今は廃車になりましたが勝田車両センターの485系K40編成や震災後に盛岡車両センターの485系「ジパング編成」が入線したことはあります。あとは検測車のE491系くらいでしょうか。
気道車ではキハ110系は無いですけど、会津鉄道の会津浪漫号で使用されているお座トロ展望車両が入線したことはあります。といっても、かれこれ10年以上前の話ですけど。


質問タグ:阿武隈急行,キハ110系,詳しい方,過去,又,会津鉄道,お座トロ展望車両

【効果あり】オレカバトル あいふぉん版についてです。 魔海の番人ダンテを出した…

オレカバトル あいふぉん版についてです。 魔海の番人ダンテを出した…

オレカバトル あいふぉん版についてです。 魔海の番人ダンテを出したいのですが一向にでません。どうしたらでるでしょうか?回答お待ちしてます

オレカバトル,番人ダンテ,あいふぉん版,魔海,回答,序破急,ボス討伐リストアンサー

1章の序破急(ボス討伐リスト)をクリアすると解禁されます。


質問タグ:オレカバトル,番人ダンテ,あいふぉん版,魔海,回答,序破急,ボス討伐リスト

【いいね】読書好きな女性アニメキャラといえば? できればそのキャラクターの画…

読書好きな女性アニメキャラといえば? できればそのキャラクターの画…

読書好きな女性アニメキャラといえば?
できればそのキャラクターの画像をお貼りください。

キャラクター,ミルキィホームズ,女性アニメキャラ,pure rouge,読書,キミキス,小清水亜美アンサー

河合 律(僕らはみんな河合荘)
◆キミキス pure rouge
星乃 結美(ほしの ゆうみ)
CV小清水亜美
◆「ロウきゅーぶ!」の紗季
◆ミルキィホームズのエルキュール・バートン
◆「一騎当千」
劉備玄徳
(画像の手前のキャラね。)
◆コレでしょ


質問タグ:キャラクター,ミルキィホームズ,女性アニメキャラ,pure rouge,読書,キミキス,小清水亜美

【平成30年度】声優「種田梨沙」の演じたアニメ・ゲームキャラで貴方が、最初に知っ…

声優「種田梨沙」の演じたアニメ・ゲームキャラで貴方が、最初に知っ…

声優「種田梨沙」の演じたアニメ・ゲームキャラで貴方が、最初に知ったキャラは?
因みに私は、
スマホゲームのプリンセスコネクト!の草野優衣で初めて知り、アニメキャラではご注文はうさぎですか? のリゼが最初でした。

僕はストブラの姫柊雪菜でした。アンサー

そうですね
アニメではストライク・ザ・ブラッドの姫柊雪菜
ゲームではFGOのマシュ・キリエライトです
どちらも最初に知ったキャラでありそして好きなキャラです
(・ω・)かわいいですよね?
◆ストライク・ザ・ブラッドの雪菜です
◆新世界よりの渡辺早季です
◆僕はストブラの姫柊雪菜でした。
◆僕は意識的に知ったのが
「ご注文はうさぎですか?」だけど、
実際の最初は
「ハイスクールD×D」のゼノヴィア。
◆いいえ先輩、私たちのケンカです


質問タグ:種田梨沙,プリンセスコネクト,ストライクザブラッド,草野優衣,ごちうさ,リゼ,レディ ジュエルペット

【完全版】おじゃる丸のキスケの形のポーチとか売ってないですか??

おじゃる丸のキスケの形のポーチとか売ってないですか??

おじゃる丸のキスケの形のポーチとか売ってないですか??

アンサー

NHKのグッズショップとかあるんじゃないですか?
またネットで探した方が楽かも知れないですね。


質問タグ:おじゃる丸,キスケ,ポーチ,形,グッズショップ,ネット

【効果あり】学園系の幼馴染のヒロインと結ばれる(付き合う・結婚など…)恋愛モノ…

学園系の幼馴染のヒロインと結ばれる(付き合う・結婚など…)恋愛モノ…

学園系の幼馴染のヒロインと結ばれる(付き合う・結婚など…)恋愛モノのアニメを教えてください。 ヒロインは複数でも構いません。

アンサー

Kanon
凪のあすから
Myself ; Yourself
たまこラブストーリー
ラムネ
月は東に日は西に
11eyes


質問タグ:ヒロイン,幼馴染,恋愛モノ,学園系,複数,たまこラブストーリー,ラムネ

【実質】エクセルVBAで「在校生名簿検索」を作成中です。 概要は、シート名…

エクセルVBAで「在校生名簿検索」を作成中です。 概要は、シート名…

エクセルVBAで「在校生名簿検索」を作成中です。
概要は、シート名「名簿」のデータを、「名前検索(TextBox1)」
と「ふりがな検索(TextBox2)」を入力で、項目の一部分を「UserForm1」のリストボックスに表示す る。
さらに、検索結果の任意データをクリックすると「UserForm2」に当該者のフルデータを表示させるものです。(データ件数 約300件)
TextBox1とTextBox2のどちらも未入力の場合は、実行ボタン(CommandButton1)を押すと「全データ」を表示します。
改善したいところは、検索結果で該当データがない場合「該当なし」と表示したいのですが、ご教示いただければと思います。
また、UserForm1の検索結果表示で「該当件数」も表示できればと思っております。
下記に、現在のコードを記載します。
Private Sub CommandButton1_Click()
Dim lastRow As Long
Dim myData, myData2(), myno
Dim i As Long, j As Long, cn As Long
With Worksheets(“名簿”)
myData = Range(Cells(1, 1), Cells(RowsCount, 30)End(xlUp))Value
lastRow = Cells(RowsCount, 4)End(xlUp)Row
End With
ReDim myData2(1 To lastRow, 1 To 8)
For i = LBound(myData) To UBound(myData)
If myData(i, 13) Like “*” & TextBox1Value & “*” And myData(i, 14) Like “*” & TextBox2Value & “*” Then
cn = cn + 1
myData2(cn, 1) = myData(i, 4)
myData2(cn, 2) = myData(i, 5)
myData2(cn, 3) = myData(i, 6)
myData2(cn, 4) = myData(i, 9)
myData2(cn, 5) = myData(i, 10)
myData2(cn, 6) = myData(i, 14)
myData2(cn, 7) = myData(i, 12)
myData2(cn, 8) = myData(i, 15)
End If
Next i
With ListBox1
ColumnCount = 8
ColumnWidths = “35;18;18;40;120;150;20;10”
List = myData2
End With
End Sub
Private Sub CommandButton2_Click() ‘「検索終了」ボタン
Unload UserForm1
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSFormsReturnBoolean)
With Worksheets(“名簿”)
Range(Cells(ListBox1List(ListBox1ListIndex, 0) + 1, 4), Cells(ListBox1List(ListBox1ListIndex, 0) + 1, 30))Select
End With
UserForm2Show vbModeless
Dim rowNumber As Long ‘ オリジナルデータが書き込まれている行番号
rowNumber = UserForm1ListBox1List(UserForm1ListBox1ListIndex, 0) + 1
Call ReadData(rowNumber)
End Sub
Private Sub ReadData(rowNumber As Long)
Dim dataSheet As Worksheet
Set dataSheet = ThisWorkbookWorksheets(“名簿”)
UserForm2Show vbModeless
UserForm2Label2 = dataSheetCells(rowNumber, 4)Value
UserForm2Label4 = dataSheetCells(rowNumber, 7)Value
UserForm2Label6 = dataSheetCells(rowNumber, 5)Value
UserForm2Label8 = dataSheetCells(rowNumber, 6)Value
UserForm2Label11 = dataSheetCells(rowNumber, 9)Value
UserForm2Label13 = dataSheetCells(rowNumber, 14)Value
UserForm2Label15 = dataSheetCells(rowNumber, 10)Value
UserForm2Label17 = dataSheetCells(rowNumber, 16)Value
UserForm2Label19 = dataSheetCells(rowNumber, 15)Value
UserForm2Label21 = dataSheetCells(rowNumber, 12)Value
UserForm2Label23 = dataSheetCells(rowNumber, 17)Value
UserForm2Label25 = dataSheetCells(rowNumber, 25)Value
UserForm2Label27 = dataSheetCells(rowNumber, 18)Value
UserForm2Label29 = dataSheetCells(rowNumber, 19)Value
UserForm2Label31 = dataSheetCells(rowNumber, 20)Value
UserForm2Label33 = dataSheetCells(rowNumber, 21)Value
UserForm2Label35 = dataSheetCells(rowNumber, 22)Value
UserForm2Label37 = dataSheetCells(rowNumber, 23)Value
UserForm2Label39 = dataSheetCells(rowNumber, 24)Value
UserForm2Label41 = dataSheetCells(rowNumber, 26)Value
UserForm2Label43 = dataSheetCells(rowNumber, 27)Value
UserForm2Label45 = dataSheetCells(rowNumber, 28)Value
UserForm2Label47 = dataSheetCells(rowNumber, 29)Value
End Sub
Private Sub UserForm1_Initialize()
Dim lastRow As Long
Dim myData, myData2(), myno
Dim i As Long, j As Long, cn As Long
Dim cn1 As Long
End Sub
Private Sub UserForm_Click()
End Sub

アンサー

Boolean型のフラグを作って、該当が必要でもヒットしたらTrueにしておくようにし、最初のFor~Nextが終了したところで、フラグがFalseになっている場合は「該当なし」というMsgBoxを表示してEndするのはどうですか?
Dim Flg As Boolean
ReDim myData2(1 To lastRow, 1 To 8)
For i = LBound(myData) To UBound(myData)
If myData(i, 13) Like “*” & TextBox1Value & “*” And myData(i, 14) Like “*” & TextBox2Value & “*” Then
Flg = True
cn = cn + 1
myData2(cn, 1) = myData(i, 4)
myData2(cn, 2) = myData(i, 5)
myData2(cn, 3) = myData(i, 6)
myData2(cn, 4) = myData(i, 9)
myData2(cn, 5) = myData(i, 10)
myData2(cn, 6) = myData(i, 14)
myData2(cn, 7) = myData(i, 12)
myData2(cn, 8) = myData(i, 15)
End If
Next i
If Flg = False Then
MsgBox “該当なし”
End ‘又はExit Sub?
End If
◆該当件数のことを書くのを忘れてました。
該当件数=cn + 1 なので、cn + 1の値をUserForm1のどこかに表示させればいいと思います。


質問タグ:dataSheet.Cells,myData2,rowNumber,Private Sub,End Sub,ReDim myData2,1 To LastRow

コメント