タグ別アーカイブ: quot

私に合うオススメのアニメを教えてください! これまでに見て、面白いと感じたア

■ 質問
私に合うオススメのアニメを教えてください!
これまでに見て、面白いと感じたアニメは、
鋼の錬金術師
青のエクソシスト
ディーグレイマン
東京喰種
ホリック
鬼灯の冷徹
フェアリ ーテイル
ソウルイーター
です。
恋愛ものではなく、戦闘を含むアニメなどが好みです。
宜しくお願いします!

★ベストアンサー
最近のものでは「ノラガミ」「東京レイヴンズ」がオススメです。
特に「ノラガミ」は質問者様の好みに外れないと思います!
住所不定、無職の自称"神"の夜トと、交通事故から魂が抜けやすくなった中学生ひよりがメインキャラ。他に恵比寿、毘沙門天、天神などの神様も出てきて、雰囲気は青の祓魔師に近いです。とくに兆麻というキャラが青エクの雪男にそっくりなので(笑)チェックしてみてください♪
全12話、放送は今年(2014年)1月からだったので、まだまだ旬です(o^^o)

(引用URL)http://detail.chiebukuro.yahoo.co.jp/rd/q14138332234

Excel VBAで質問です。 現在、「入力シート」と「コピーするシート」の2

■ 質問
Excel VBAで質問です。
現在、「入力シート」と「コピーするシート」の2つがあります。 「入力シート」のA列に支店名が記入されており、別ブックを作成して支店名別にシートを作成しようと考えております。
そこで以下のようなコードを作成しました。
Sub sample1()
Dim i, sh

Workbooks.Add
i = 1

Do While ThisWorkbook.Worksheets("sheet1").Cells(i, 1) <> ""
ThisWorkbook.Worksheets("コピーするシート").Copy before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.Sheets(1).Range("A1") = ThisWorkbook.Worksheets("sheet1").Cells(i, 1)

‘以下、同じ名前のシートがないか調べるコード
For Each sh In Worksheets
If sh.Name = ThisWorkbook.Worksheets("sheet1").Cells(i, 1) Then
sh.Name = ThisWorkbook.Worksheets("sheet1").Cells(i, 1) & "(2)"
Exit For
Else
Worksheets(1).Name = ThisWorkbook.Worksheets("sheet1").Cells(i, 1)
Exit For
End If
Next

i = i + 1
Loop
End Sub
For Eachを使って同じシート名がある場合には「東京支店(2)」のように支店名の後に(2)を付けようと考えています。しかし、どうにも同じ名前を認識してくれずエラーになってしまいます。
For Each sh In WorksheetsのWorksheetsの部分をActiveWorkbook.Worksheetsに変えてもダメでした。
ご教授いただけたら幸いです。

★ベストアンサー
>どうにも同じ名前を認識してくれずエラーになってしまいます。
For Each~Nextの中のIf文
If sh.Name = ThisWorkbook.Worksheets("sheet1").Cells(i, 1) Then
sh.Name = ThisWorkbook.Worksheets("sheet1").Cells(i, 1) & "(2)"
Exit For
Else
Worksheets(1).Name = ThisWorkbook.Worksheets("sheet1").Cells(i, 1)
Exit For
End If
の条件に合うときも合わないときも、Exit Forで抜ける
ということは、シートの1枚目しかチェックされてないということになります。
見つからないというのは、最後まで回わさないとチェックしたことにはならないですよね?
Dim xExist As Boolean




‘以下、同じ名前のシートがないか調べるコード
xExist = False
For Each sh In Worksheets
If sh.Name = ThisWorkbook.Worksheets("sheet1").Cells(i, 1) Then
xExist = True
Exit For
End If
Next
If xExist Then
sh.Name = ThisWorkbook.Worksheets("sheet1").Cells(i, 1) & "(2)"
Else
Worksheets(1).Name = ThisWorkbook.Worksheets("sheet1").Cells(i, 1)
End If
(未実行に付き不具合ご容赦)
ぐるぐる回すのが嫌いという人には、こんなコードがお勧め。
あと、お示しのプログラムのように複数のシートやブックを扱う場合には、最初にそれらを変数化しておくと後続のコードが短くなり読みやすくなります。
Sub sample1()
Dim sh0 As Worksheet, sh1 As Worksheet, sh As Worksheet
Dim i As Long, xNewName As String
i = 1
Set sh0 = ThisWorkbook.Worksheets("コピーするシート")
Set sh1 = ThisWorkbook.Worksheets("sheet1")
Application.ScreenUpdating = False
With Workbooks.Add
Do While sh1.Cells(i, 1).Value <> ""
sh0.Copy before:=.Worksheets(1)
xNewName = sh1.Cells(i, 1).Value
.Worksheets(1).Range("A1").Value = xNewName
‘以下、同じ名前のシートがないか調べるコード
Set sh = Nothing
On Error Resume Next
Set sh = .Worksheets(xNewName)
On Error GoTo 0
If Not sh Is Nothing Then
xNewName = xNewName & "(2)"
End If
.Worksheets(1).Name = xNewName
i = i + 1
Loop
End With
Application.ScreenUpdating = True
End Sub

(引用URL)http://detail.chiebukuro.yahoo.co.jp/rd/q11138181926

Access2010のフォームのテキストボックスを使ってあいまい検索をしています

■ 質問
Access2010のフォームのテキストボックスを使ってあいまい検索をしています。
現在東京 大阪と入力すると、東京と大阪が含まれるレコードが検索結果に表示されます。 これを東京 大阪と入力すると上記の検索結果と同時に東京か大阪が含まれるレコードが表示されるようにすることは可能でしょうか?
可能であれば方法を教えてください。

★ベストアンサー
前回提示した以下の応用になります

AccessでWEB検索のように曖昧検索したい

http://hatenachips.blog34.fc2.com/blog-entry-96.html

変更点は、スペースを Replace で置換える時、
"* AND *" ではなく "* OR *" にしますが、注意点が1つ
変換元の区切り(スペース)が連続していた場合、
1文字にするように処理をいてください。
方法は何でも良いです。
スペース2個を1個にする Replace を繰り返して
Replace 前後で文字数に変化が無ければ・・・とか
連続を1個にする理由
"* OR *" に変更した際
変換元が、"東京(スペース)(スペース)大阪" だった場合、
"*" & Replace(Me.txtFind, " ", "* OR *") & "*"
で置換えて出来上がる文字列は
"*東京* OR ** OR *大阪*"
これを BuildCriteria に与えると
フィールド Like "*東京*" OR フィールド Like "**" OR フィールド Like "*大阪*"
になると思います。
真中に フィールド Like "**" があるので、Null 以外が抽出される事に・・・
東京 大阪 を指定していても無意味
これが、AND で結ばれていたら、Like "**" 部分があっても影響はないかと・・・
念のために Trim した結果で、スペースを1つに・・・していった方が・・・

(引用URL)http://detail.chiebukuro.yahoo.co.jp/rd/q13137889093