A16 A10の解決方法

質問者が納得こんにちは。共有の設定をしたマクロブックが、上記の現象になるのは、仕様の範囲です。出来れば、保護の必要な場所、保護の必要のない場所、セルで住み分けて、プロテクトの解除と設定をしないで、処理を組み立てるようにできそうでしょうか。透明なテキストボックスをシートの最前面に置き、シートと同じ大きさのコントロールにすると、セルをクリックしようとしても、クリックできなくなります。回避策の一つです。

質問者が納得こんにちは。並び替えができない理由が気になります。とりあえずコード作成してみました。しかし、気になる点がほかにもあるので、、、＞A10にVLOOKUPを使って点数が１番低い人の名前を表示せっかくＶＢＡで並び替えするのなら、これもＶＢＡでやればいいのでは？＞B1～B8に名前、A1～A8にA列の人の点数人が増えたときはどうなるんでしょうか。＞A10に表示した人をA15・・・2番目に点数の低い人をA16・・・ここも固定でしょうか？点数と名前のシート、昇順後の結果シート、分けたほうが今後のためになると思います。Co...

質問者が納得やっぱりマクロになります＾＾Sub try3()Dim i As Long, n As Longn = 0n = Range("a1").End(xlDown).RowFor i = n To 1 Step -1 Rows(i + 1).Resize(3).Insert shift:=xlShiftDown Cells(i, 1).Copy Cells(i, 1).Resize(3).Offset(1)NextEnd Sub上記を標準モジュールにコピペします。Alt+F11 & ...

質問者が納得Ａ６～Ａ３０の中で合計する場合=SUMPRODUCT((MOD(ROW(A6:A30)-1,5)=0)*A6:A30)５行間隔のときは、ＭＯＤ（行,5)=0とします。５で割った余りが0のとき集計するからです。質問の場合は、Ａ６から始まるからＭＯＤ（行-1,5)=0行から１を引いてから５で割りました。

質問者が納得【補足による追記】>でもこれだと０も空白も計算してしまいます =AVERAGE(A4,A10,A16,A22,A28) の式では、◆たとえばA28が空白の場合は「57」=(53+59+40+76)/4 になり、◆「空白」は平均の計算されていません◆A28が「0」の場合は、「45.6」=(53+59+40+76+0)/5 になります◆「0」は平均の計算に含まれています◆「0」も平均に含めないのであれば =SUM(A4,A10,A16,A22,A28)/((A4<>0)+(A10<>...

質問者が納得＞A4～A33 A3コピー＞上記の様に設定してあります。この部分が間違いですね。前回の質問を拝見しましたが、A3セル =DATE(YEAR(E1),MONTH(E1)-1,21)A4セル =A3+1 A10までコピー A11セル =IF(A10="","",IF(DAY(A10+1)>20,A10+1,""))A12 A13セル A11セルをコピーA14セル =DATE(IF(MONTH(A3)=12,YEAR(A3)+1,YEAR(A3))...

質問者が納得まずは新しいマクロを記録現在、作っているグラフを変更する。記録を終了する。ツール→マクロ→Visual Basic Editor開いた画面の左上 標準モジュール内に先ほど記録したマクロのソースが記載されるています。その中に選択するグラフ名、どのシートのどの範囲かを記載している所があるのでそこを変更する。例： ActiveSheet.ChartObjects("グラフ1").Activate ActiveChart.ChartArea.Select ActiveChart.SetSourc...

質問者が納得常のその行含め上方向に5つの合計ですね。作業列C列を使います。B1：=IF(C1<6,SUM($A$1:A1),SUM(INDIRECT("A"&MATCH(C1-4,C:C,0)&":A"&ROW()))) C1：=COUNT($A$1:A1)このB1C1を下方向にオートフィル式の説明は省略します。・・・

質問者が納得A4:=SUMPRODUCT(($B$1:B4)*(MOD(ROW($B$1:B4)+2,3)=0))/100*9A5:=SUMPRODUCT(($B$1:B5)*(MOD(ROW($B$1:B5)+2,3)=1))/100*9a6:=SUMPRODUCT(($B$1:B6)*(MOD(ROW($B$1:B6)+2,3)=2))/100*9このA4:A6を下方向にオートフィルだだし100の倍数の入力しか想定していません。101の入力は9.09になります。3行おきの合計より100を割り9を掛ける。