セルA1に薬価
=IF(A1="","",IF(A1<=15,1,ROUNDUP((A1-15)/10+1,0)))
◇ 検索用
[excel] [薬価]
ある列の値が変わるタイミングで改ページを入れるマクロ
Sub 自動改ページ()
' 1番目の名前を選択(今回はB2)
' activecellから始めるならコメントアウト
Cells(2, 2).Activate
lastdata = ActiveCell.Value
ActiveSheet.ResetAllPageBreaksDo
If lastdata <> ActiveCell.Value Then
ActiveSheet.HPageBreaks.Add Before:=ActiveCell
lastdata = ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.Value <> ""
End Sub
[excel] [エクセル] [macro] [マクロ] [vba] [改ページ]
10/29, 30と文化祭でした
やりたくてスタッフになっているならまだしも、指名されてお手伝いなので、そこまでやる気がでない
意見出しても、お手伝いなので通らないし...
まあなんとか無事に終わって良かったです
コミケに出店する準備中
今年は偽札が出たとかいう話も出ているので気をつけたいところ
でも、100円だし、お札を出されることはないかな
現在夕方5時を回りました。
階乗では、1日目は終わって、2日目の準備を始めてるんだろうなー
勧誘の電話が来た
...
黒電話のほうに
現在インターネットお使いですよね
から始まりました
黒電話のほうでは使ってなかったので、使ってないよと返答
そしたら、
パソコンお持ちですよね、だったらインターネットはうんたらかんたら
電話機もプレゼントしますとかなんとか
プレゼントはうれしいけど、祖父が使ってる電話機なのでここでプッシュ式に変えたら絶対に使えない
と思い断りました
自分の番号にかけてくれれば検討したのにな
というか、今時インターネット契約してないなんて信じられない
PC持っていて、インターネットしてないの?
な感じで話しかけてくるのやめてもらいたいなぁ
今度PCよくわかりません
インターネットってなんですか
的に話を聞いて契約してみようかな
有料で、自宅PCをインターネットに接続するまでの設定サービスってあるよね
その辺も使ってみたいなぁ