at121のプロフィール

ひとつのセルの中に単位を共有させたいのですが B = 2.00 m H = 3.00 m A = B × H = 2.00 m × 3.00m = 6.00 m2 上の内容を次のようにしたい。 セルA1に　B =　　　セルB1に　2.00 m　(2.00は入力) セルA2に　H =　　　セルB2に　3.00 m　(3.00は入力) セルA3に　A = セルB3に　B × H = セルC3に　2.00 m × セルD3に　3.00 m = セルE3に　6.00 m2 セルC3の2.00はセルB1から持ってきます。 セルD3の3.00はセルB2から持ってきます。 セルE3は掛算で求めて、小数2位以下を四捨五入します。

以前どなたかが質問していた際に、下記の様なコードで回答をていた方がいらっしゃいます。 これを流用させていただきたいと思っています。そこで、下記の通り２点ほど改良をくわえたいのですが、どうすればいいのでしょうか。 改良点１ 現在は、このコードは１つ１つのセルに対しての処理になっています。（結合したセルではうまくいかない。）自分がやりたいのは、Ｏ24からT25までという感じに結合されたセルに対して、このようにダブルクリックすると○が入り、再びダブルクリックすると○が消える。ということをしたいのです。 改良点２ 下記のコードだと、A1からA5のように連続したセルに対する処理になっていますが、自分としては、O24からT25までの結合したセルと、V24からAA25までの結合したセルと、AC24からAC25までの結合したセルと、AJ24からAO25までの結合したセルと、AQ24からAV25までの結合したセルと、AX24からBC25までの結合したセルの計6カ所に○をつけたり消したりするようにしたいです。 何とかならないものでしょうか。VBAはかなり初心者です。お願いします。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Dim Ad As String Dim Lp As Single, Tp As Single, Hp As Single Dim Ov As Oval If Intersect(Target, Range("A1：A5")) Is Nothing Then Exit Sub End If With Target Ad = .Address Hp = .Height Lp = .Left + ((.Width / 2) - (Hp / 2)) Tp = .Top End With Cancel = True With ActiveSheet .Unprotect '★ For Each Ov In .Ovals If Ov.TopLeftCell.Address = Ad Then Ov.Delete: Ad = "": Exit For End If Next If Ad <> "" Then .Ovals.Add(Lp, Tp, Hp, Hp) _ .Interior.ColorIndex = xlColorIndexNone End If .Protect , True, False, False '★ End With End Sub

小規模会社のため就業規則も無く、有給休暇は既に勤続６年になりますが１日も使用したことがありません。土日祝は基本的に休みですが、会社は親族会社で、就業規則も与えられてないため、社長に相談したいところですが、話しても無駄なことと思い今日まできてしまい、妻からは、有給が無い会社なんて在り得ないと言われて困ってます。会社は辞めたくないので、どうにかして労働基準局へ会社に働きかけて欲しいのですが何かよい方法はないでしょうか。

Joe Sr. frequently calls Jack out for his sloppiness and disregard for finances or any kind of responsibility. ★frequently…しばしば、頻繁に ★disregard…注意を払わない、～を無視する ★finance…財産

苦手というよりも大嫌いです。 吸う人を否定はしませんが、レストランやカフェ、子供がいる場所で平気でスパスパ吸う人については信じられません。 ましてや歩きタバコをする人は人として最低だと思います。 最近仲良くなった女の子がヘビースモーカーです。 一緒にご飯を食べに行ったり、お茶をしに行くとお店に入ったとたん 「喫煙席で！(←ものすっごく、早い)」 と言い、当たり前のようにスパスパ吸います。 私は煙いのと臭いのと副流煙の害が気になって気になって、おしゃべりどころではありません。 顔は笑顔ですが、もう限界です… ちなみにその子には、初期のころに 「タバコの臭いは苦手なんだぁ」 と軽く言っております。 (忘れているのか・・・？！) 先日、会話の中で 「吸いたくて吸ってるわけじゃないんだよねー」 と言っていたので、不快感がＭＡＸになりました。 他にも仲良しの子が数名おり、彼女たちはタバコを吸いません。 が、対応を見る限り不快に感じてはいなさそうです。 他の子たちとの付き合いもあるので、その子との関係も出来るだけ壊さずに穏便にしたいのですが、何か良い案があったら教えて下さい！ その子自身とはこの先も仲良くやっていきたいのですが、もう声をかけてもらうのも憂鬱なんです… (ちなみにその子は、美人でお金持ちのお嬢様で学歴が高いということに誇りを持っており、自分に自信があるタイプです。 客観的に見て本当に彼女が思っているような感じかどうかは、謎です)