子供が見たいと言うので行ってきました

映画ゴセイジャーV.S.シンケンジャー

今回、大人1,200円、小人800円の特別上映が、さらに水曜レディースディで、大人1,000円に

シンケンジャーは、今までの戦隊モノとはかなり違った要素モリモリで（真のシンケンレッドに初！女の子が登場したり、それぞれの家族や人間模様が描かれていたり、大怪我したら次のシーンや次の週にもちゃんと怪我の跡があったり…）、放送当時、親でも楽しめていたので、ちょっと期待しながら行ってきました

迫力のシーン満載＆初＠レッドがぷち悪役（しかもかなり強い！）もあり、子供も大満足

次回シリーズの「ゴーカイジャー」の出演も結構長く、エンディングでは歌まで流れました

どうやら次のシリーズも、うちの子は録画して見るらしいです（セリフを覚えるまで何度でも見るため録画）

これ、会社のブログでした！

というわけで、（Web会社だけど）Excelを少し

もし、K8が空白、またはE8が空白だったら、空白にして、そうでなかったら、L8-7.5の計算をしてね！です↓

IF文とORまたはANDの連携技（？）です

=IF(OR(K8=”",E8=”"),”",L8-7.5)

なんと、Excel関数では、orやandは、先につけてくくるらしいです

Ａか、Ｂか、Ｃか、Ｄか

大量な選択肢も、

OR(A,B,C,D)

ってカンマで区切っていけば可能！

問題は、長い式ほど、セルの中に改行もなくひたすらひたすら記述なので、途中でわけがわからなくなります

No tags Excel, その他

エクセルで作成したものを、ちょっとだけ加工してhtmlタグにしてしまいたい時があるのはわたしだけなんでしょうか？

同じようなhtmlファイル、中の数字だけ違う、

とか、

スケジュール表とか

特にスケジュール表なんかは、曜日を自動取得させて、時間やら予定やら、色とか形とか整えるのに、Excelって便利！と思うのです

だから、その作ったものにいい感じに、idやckassや<span>を埋め込んで、txtではきだしてしまおうかと

（相変わらず覚書程度の記述の仕方…）

A1に日にち

A2に曜日（関数で自動取得）

A3に時間

A4に予定内容

↑の場合です

VBAの記述は以下↓

Sub 何かかっこいい名()

Dim StrFN As String

‘吐き出すファイルのパスと名前
HFname = ActiveWorkbook.Path & “\tbl.txt”

Dim youbi As String
Dim Naiyou As String
Dim i As Long, LngLoop As Long
Dim HakidashiFile As Integer

‘シートの最終行を取得
Worksheets(“Sheet1″).Activate
LngLoop = Range(“a65536″).End(xlUp).Row

HakidashiFile = FreeFile

‘ファイルをオープン
Open HFnam For Output As #HakidashiFile

Print #HakidashiFile, “            <table border=0 cellspacing=0 cellpadding=0>”

For i = 5 To LngLoop
‘半角カナを全角に
Naiyou = StrConv(Cells(i, 4).Value, vbWide)

‘曜日の取得
If Cells(i, 2) = 1 Then
youbi = “日”
ElseIf Cells(i, 2) = 2 Then
youbi = “月”
ElseIf Cells(i, 2) = 3 Then
youbi = “火”
ElseIf Cells(i, 2) = 4 Then
youbi = “水”
ElseIf Cells(i, 2) = 5 Then
youbi = “木”
ElseIf Cells(i, 2) = 6 Then
youbi = “金”
ElseIf Cells(i, 2) = 7 Then
youbi = “土”
End If

Print #HakidashiFile, “                <tr>”
Print #HakidashiFile, “                    <th class=”"aaa”">” & Cells(i, 1) & “</th><th>” & youbi & “</th>”
Print #HakidashiFile, “                    <td><span>” & Cells(i, 3) & “</span>” & Naiyou & “</td>”
Print #HakidashiFile, “                </tr>”

Next i

Print #HakidashiFile, “            </table>”

‘ファイルを閉じる
Close #HakidashiFile

‘終了メッセージ
MsgBox “タグを作成しました”

End Sub

If文って、言語によって記述の方法が若干違うのを何とかしてもらえたらなぁ…

あと\nとか打消しの方法とかとか

でもよく迷うのはきっとわたしだけです

No tags Excel

スケジュール作成に便利です

参考例）

セルのＡ1に「年」となる数字

セルのＣ3に「月」となる数字

Ａ1、Ｃ1はともに絶対参照に！

で、「日」のスタートがＢ3

Ｂ4に、Ａ1年Ｃ3月Ｂ3日の曜日を入れたいとして、下記の関数を使用します

=WEEKDAY(DATE($A$1,$C$1,B3))

全くもって覚書なので、説明になってないですねぇ…

詳しくは↓むぎぽんさんが書かれています♪
メモ：Excel（エクセル）　「年月日から曜日を自動表示」

No tags Excel