■ 10,000件の投稿があります。 |
【1940】 |
マト (2007年03月03日 18時00分) |
||
これは 【トピック】 に対する返信です。 | |||
☆カミさん 仕事乙です♪ >俺・・・暴走+覚醒+単発=6連って有ります..▄█▀█●(号泣) おれは暴走×5が最高かな(^^;) 最低っていうか(笑) やってれば確変より暴走が多いのは良くあるからね(^^;) >また遊びに行かせてくださいねぇ! はーい(^^)/ いつでも遊びに来てね〜♪ 待ってるよ♪ ◇ では仕事終わったんで、退社落ちで〜す♪ ◇ |
|||
【1939】 |
カミ(= ̄▽ ̄=) (2007年03月03日 17時48分) |
||
これは 【トピック】 に対する返信です。 | |||
なおさん こんばんわ〜 お仕事ですか?仲間です(笑) 今日は美貌のトピ主が監禁プレイ中でアハ〜ンと言ってるみたいなので静かですね(笑) マトさん こんばんわ > 暴走→覚醒→覚醒→覚醒→単発... 俺・・・暴走+覚醒+単発=6連って有ります..▄█▀█●(号泣) マトさんも仕事仲間〜(笑) また遊びに行かせてくださいねぇ! アラジンさん! はじめましてカミと言います 宜しくお願いします |
|||
【1935】 |
マト (2007年03月03日 17時33分) |
||
これは 【1929】 に対する返信です。 | |||
☆カミさん お久♪ >暴走>暴走>暴走>覚醒>単発でした..▄█▀█●(苦笑) おれも似たような経験が(笑) 暴走→覚醒→覚醒→覚醒→単発... 出玉少なすぎ!!(ノ= ̄▽ ̄=)ノ” ┫:・'.::・┻┻:・'.::・ ☆なおさん お久♪ 仕事乙です。同じです(T_T) ◇ アラさん 久しぶり♪ ↓ |
|||
この投稿に対する 返信を見る (1件) |
【1933】 |
なお?! (2007年03月03日 17時17分) |
||
これは 【トピック】 に対する返信です。 | |||
.∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ( ・ω・) < 今日は静かだ… ( つ旦と )\_______ と_)_) 私はお仕事中ですが・・・(--;) |
|||
【1932】 |
アラジンA (2007年03月03日 14時43分) |
||
これは 【トピック】 に対する返信です。 | |||
'VBAパレート図 Dim i As Integer '数字カウント Dim tel As Integer '総数 Sub Record1() bbb = ActiveWorkbook.Name '最終セル Range("A1").Select Selection.End(xlDown).Select encel1 = ActiveCell.Address cend = Mid(encel1, 4) '並び替え If InStr(1, Cells(cend, 1), "他", 1) > 0 Then cenda = cend - 1 Else cenda = cend End If Range(Cells(2, 1), Cells(cenda, 2)).Select Selection.SortSpecial SortMethod:=xlSyllabary, Key1:=Range("B1"), _ Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom Range("A1").Select '数値合計 tel = 0 For i = 2 To cend tel = tel + Cells(i, 2) Next Cells(cend + 1, 2) = tel 'パ−セント For i = 2 To cend Cells(i, 3).NumberFormat = "0" If i = 2 Then Cells(i, 3) = Cells(i, 2) / tel * 100 Else Cells(i, 3) = Cells(i, 2) / tel * 100 + Cells(i - 1, 3) End If Next ' グラフ作成 Range(Cells(2, 1), Cells(cend, 2)).Select ActiveSheet.ChartObjects.Add(132.75, 183, 353.25, 192).Select Application.CutCopyMode = False ActiveChart.ChartWizard Source:=Range(Cells(2, 1), Cells(cend, 3)), Gallery:= _ xlCombination, Format:=2, PlotBy:=xlColumns, CategoryLabels:=1 _ , SeriesLabels:=0, HasLegend:=2, Title:="", CategoryTitle:= _ "", ValueTitle:="", ExtraTitle:="" Range("H10").Select ' グラフ名取得 ActiveSheet.ChartObjects.Select cnam = Selection.Name ActiveSheet.DrawingObjects(cnam).Select ActiveSheet.ChartObjects(cnam).Activate ActiveChart.SeriesCollection(1).Select Selection.ApplyDataLabels Type:=xlShowValue, LegendKey:=False Selection.DataLabels.Select '最大値・最小値指定 With ActiveChart.Axes(xlValue) .MinimumScale = 0 .MaximumScale = tel End With ActiveSheet.ChartObjects(cnam).Activate ActiveChart.Axes(xlValue, xlSecondary).Select With ActiveChart.Axes(xlValue, xlSecondary) .MinimumScaleIsAuto = True .MaximumScale = 100 End With Windows(bbb).Activate Range("K6").Select '総数の表示(必要に応じグラフの好みの場所に入れて下さい) ActiveSheet.TextBoxes.Add(274.5, 81.75, 47.25, 13.5).Select Selection.Characters.text = "N=" & tel Selection.Border.LineStyle = xlNone Selection.Interior.ColorIndex = xlNone Range("G6").Select End Sub |
|||
【1931】 |
3ちゃん (2007年03月03日 14時01分) |
||
これは 【1930】 に対する返信です。 | |||
みなさんこんちー♪ 今日は会社遅刻しちゃったよ〜(>< でも、現場直行したことにして、遅刻は免れましたが・・・ナニカ?? 打ってる人も、仕事の人もp(*^-^*)q がんばっ♪ |
|||
© P-WORLD